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I. INTRODUCTION 



The installation cf gas turbine engines in a snip raises 
several problem areas in the design of the intake and 
exhaust ducting. The problems relate mainly witn the large 
volume of combustion air required and the properties of the 
exhaust gases rejected to the atmospaere at hign tempera- 
tures and velocity. For comparison, a boiler's combustion 
air requirement is nearly stoichiometric but the gas turbine 
operates at about 400 percent of stoichiometric. The toil- 
er's exhaust is about 400 degrees F after leaving the last 
rows of the economizer, but gas turbine exhaust temperatures 
are frequently as high as 9.50 degrees F. 

In' addition to the air that passes tnrougn the gas 
turbine engine there is also a requirement to ventilate the 
engine enclosure. An adequate and uniformly distributed 
cooling airflow is required around tne engine to maintain 
engine-mounted components at their proper operating tempera- 
tures and to minimize the heat rejected to the engine room 
thereby reducing the heat exposure of operating personnel, 
.’lany current designs branch the engine cooling airflow off 
the main intakes and/or join neated enclosure cooling air 
into the engine exhaust ducting. Figure 1.1 shows a typical 
layout of inlet and exhaust ducting. Since the enclosure 
cooling airflow is on the order of 20 percent of the 
engine's full power airflow rate, it is an important part of 
the ducting design. 

The fundamental requirement of an intake design is to 
provide air to the engine compressor with tne minimum total 
pressure loss and witn a minimum of total pressure distor- 
tion. The loss of total pressure in the intakes leads to a 
loss of engine power and an increase in specific fuel 
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Figure 1.1 Typical Shipboard Inlet and Exhaust Ducting. 

consumption. Schwieger reports 'Typical exchange rates are 
that a one percent loss in intake pressure is eguivaient to 
a 2.2 percent loss in power and a 1.2 percent increase in 
specific fuel consumption" [Ref. 1]. Auditionaliy , total 
pressure distortion at the compressor face can lead to a 
risk of compressor blade failure. 

Exhaust ducts must also operate with a minimum pressure 
loss. "The exchange rate is 1.1 percent loss in power and 
1.1 percent increase in specific fuel consumption for the 
one percent increase in total pressure at the power turbine 
exit" [Ref. 1], 

Conflicting with the designf objective to reduce losses 
in the ducting system are several possible requirements to 

1 1 



install components in the ducting system which contribute to 
the losses tut not directly to engine performance. Filters 
are installed to increase engine life. Silencers are 
installed to reduce noise. Machinery arrangements dictate 
the use cf certain elbows, contractions, and transitions. 
The infared signature of the ship's exhaust plume can be 
reduced by the installation of an eductor system at the 
exhaust exit. The eductor also improves the environment of 
mast mounted equipment and may contribute to flight safety 
when operating helicopters. Some systems use an eductor 
arrangement installed at the exhaust plane of the engine to 
pump cooling air through the engine enclosure. A waste heat 
recovery boiler may be installed in the exhaust to improve 
overall efficiency. To reduce pressure losses every attempt 
should be made to reduce the velocity in the duct. Lower 
velocities requires larger ducts. Part of the design 
compromise must balance the large volume of the ship occu- 
pied with inlet and exnaust ducts and the volume for other 
uses such as weapons and ha bxtibility . In summary there are 
many different components that can be utilized within the 
ducting system and have various effects on the system 
performance. The effects also vary with the operating point 
of the system. 

It is not a straight forward proclem to predict how 
components in the ducting system will perform. It is an 
interacting or matching type of problem. Furthermore, it is 
a dynamic problem as parameters affecting performance can 
vary over a wide range. For example, one power setting of 
the gas turbine requires a different mass flow rate of air 
than another. The variable mass flow rate tnrough the 
ducting system creats a variable inlet and exhaust duct 
pressure loss. The variation in exhaust temperature affects 
the losses in the exhaust duct. iJitimately all losses 
affect the performance of the gas turbine engine. 
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obtain an accurate estimate of performance. The designer 
can then decide to make changes to components to achieve 
design objectives and make tnose changes to the duct geom- 
etry througn an editing routine and rerun the problem- Cnee 
the designer is satisfied with the one dimensional analysis 
a firm oasis exists to provide a design for model studies. 
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II. THEORY AND ANALYSIS 



A. GEHEEAL 

A one dimensiondl analysis of the flow in duct sections 
utilizes the Bernoulli Equation modified to account for 
losses. The term one-dimensional xs an adjective often 
applied to flow situations. The whole flow is considered to 
be one large streamtube with average velocity V at each 

cross section. Thus the one dimension is the location down 

the duct. Losses refers to the pressure loss caused by 
frictional stresses in the airflow boundary layer and by 
turbulence. A thorough understanding of these terms and 
concepts is required to convey the meaning of the results of 
the duct system analysis. 

B. THE BERNOOLLI EQUATION 

The Bernoulli Equation is discussed in any basic text on 
fluid mechanics. It was developed to describe tne flow work 
of an ideal incompressible fluid in steady flow through a 
streamtube. In words it states that the mechanical energy 

per unit mass along a streamline is conserved. The 

Eernculli Equation is: 

v2/2g^ * p/yo (g/ 9 c) 2 = constant. (egn 2.1) 

It relates velocity, pressure, and potential height. The 
constant may have a different value for each stceamline, but 
for the purposes of duct flow certain simplifying assimp- 
tions are valid which make the constant valid for any 
streamline. The assumptions are that the static pressure is 
constant at any point in a cross section of tne duct. The 
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yov2/2g^ +p = constant (egn 2.2) 

In this form the constant .has units of foot-pound force/ 
feet3 and expresses the energy per unit volume flow rate. 
It reduces to pound force/feets or pressure. Each term in 
the expression is given a name. The velocity term is the 
velocity presure, p is the static pressure, and the constant 
is the total pressure. In words, the total pressure at a 
point is the sura of the velocity pressure and the static 
pressure. 



C. MODIFIED BERHODLII EQOATION 



Although equation 2.2 was derived for flow along a 
streamtube of an ideal frictionless flow it can be extended 
to analyze flow througn ducts in real systems by applying 
the First Law of Thermodynamics. A good development of the 
application of the First Law of Thermodynamics to pipe flow 
is found in [Ref. 2]. It results in the modified Bernoulli 
Equation (2.3). Equation (2.3) incorporates all the assump- 
tions so far and includes the termZlp^. The flow resistance 
in a system with a real fluid between stations 1 and 2 is 
represented by the total pressure loss,Ap^. 



/O V 2/2gc ♦ 



/«v2/2g^ + p^ + Apt 



(egn 2.3) 



The velocity used in the modiiied Bernoulli Equation 
will be taken as the mean velocity and then this equation 
will be assumed valid for any streamline in the duct. 
Analytically this is not correct because there is a varia- 
tion of velocity at a duct section irom tne walls to the 
center of the duct. The error introduced by this assumption 
is offset by two circumstances. First, with turbulent flow 
the velocity profile is nearly uniform wnich makes the mean 
velocity a good approximation of the velocity at any point 
in the cross section. Second, experimentally determined 
loss coefficients are utilized in computations and this 
coefficient is applied using the mean velocity. Then if the 
velocity profile in the system matches the profile of the 
experiment, the loss will be correctly computed using the 
mean velocity. 

The computer program uses the mean velocity and computes 
it basea on mass flow rates. The mean velocity is computed 
from the mass flow through a sectional area and the density 
of the fluid at the section using equation 2.4. Density is 
computed by the perfect gas law equation (2.5) and is a 
function of the absolute temperature of tne gas and the 
static pressure of the gas. 

(eqn 2.4) 



(egn 2.5) 

= static pressure 
= gas constant 
= absolute temperature 



m«<wn p 

/> = f/RT 

where p 

R 
T 



17 



D. PBESSOfiE LOSSES 



There are two types of fluid losses in the ducting 
system, frictional and dynamic losses. Frictional losses 
occur along the walls of the entire duct length and are due 
to fluid viscosity. Dynamic losses result from disturbing 
tne flow such as a change of direction, contraction, or 
expansion. 

The Darcy- Weisbach equation (2.6) calculates the fric- 
tion loss for straight ducts. 



Darcy- Wiesbach equation A p^ 



i (L/D)^‘ 



(eqn 2.6) 



where A 



The friction 
taken from a 



Pt = frictions loss 

in terms of total pressure 
i = friction factor 
L = duct length 
D = duct diameter or 

equivalent hydraulic diameter 
-r— = velocity pressure 

factor,/, used in computing duct losses is 
correlation by Swamee and Jain presented in 



[Ref. 2] 
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(eqn 2.7) 



The absolute roughness factor, e, is taken to be 0.00015 
feet for all air duct components. For rectangular straight 
duct sections the equivalent hydraulic diameter, Dg , is 
calculated by equation (2.8) presented in [Ref. 3]. 

Equations 2.6, 2.7, and 2.8 are utilized in the program for 
computing friction losses in the straignt sections of the 
due t . 
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(eqn 2.8) 



Dg = 



Co. fa ) 



Friction losses occur in ail fittings not just in 
straight duct. There are two technigues to arrive at the 
friction losses in these other fittings. The decision about 
which technique to use depends on the wnether tne fitting is 
short or long. In short fittings friction is accounted for 
by measuring the connecting sections of straight duct to the 
center of the fitting. No attempt is made to include fric- 
tion in the calculation of fluid resistance for a short 
fitting. Elbows are short fittings. For long fittings such 
as diffusers and contractions, friction is included in tne 
computation of the flow resistance coefficient. Therefore, 
a connecting straignt duct length should be measured to the 
center of an elbow cr to the start or end of a diffuser or 
contraction. 

Dynamic losses are sometimes called local or minor 
losses. In piping systems, losses due to the local distur- 
bances of the flow are often called minor losses. In very 
long piping systems these losses are usually insignificant 
in comparison with the friction in tne length considered. 
In the duct used for a gas turbine installation these 
so-called minor losses actually become major losses because 
of the short lengths usually encountered. Experimental 
results are almost always used to account for pressure 
losses through the duct fittings. Such information is 
usually given in the form of equation 2.9. 



Apt = K^v2/2g^ (egn 2.9) 

The coerficient K is given for the fitting in numerous hand- 
books. Figure 2.1 shows some typical representations of the 
information available. 
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K=0 .10 




The drawings were reproduced from 
[ Ref. 6 ]. 




K=0 .40 



Figure 2.1 Typical K Values for Fittings. 

One of the purposes of the program is to provide K coef- 
ficients for various fittings selected to represent duct 
components. K values can vary with tne geometry of a 
fitting. For example, a long smooth radius rectangular 
elbow has a lower K value than a short smooth radius rectan- 
gular elbow. The program taxes this into account and is the 
reason for the various questions about a fitting's geometry 
in the area of the program where the user is inputing the 
duct system. 

Two fittings in the program's menu do not require geom- 
etry inputs to obtain resistance information. The two 
fittings are filters and the gas turbine module. The reason 
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for the lack of (Questions is that tne losses are based on 
manufacturer's data. Filter manufacturers provide pressure 
loss data based on face velocity and tae module is based on 
the mass flow rate of cooling air. A power curve fits the 
data and the program uses the curve to model pressure losses 
for these fittings. 

Table I sumarizes the fittings available from the 
program's menu. The fluid resistance coefficients are 
computed by the program upon input of the required geometry 
factors for the fitting. Input of the duct fittings is 
accomplished interactively. The source of the model for 
eacn fitting is noted in the program listing in tne title 
block of the fitting subroutine. The program subroutines 
FIT01 through FIT29 correspond to the fittings listed in 
table I . A sketch of each fitting is provided in the 
user's manual for the program. The user's manual is 
Appendix C. 



E. GAS lOBBINE/SYSTEH INTERFACE 

General Electric Company, the manufacturer of the LM2500 
marine gas turbine, publishes performance data for its 
engine under variable operating conditions. [Ref. 4]. It 
is important to understand how the shipboard engine is oper- 
ated under variable operating conditions such as duct losses 
and ambient temperature , pressure and humidity so that the 
proper corrections may be applied to the engine performance 
parameters for these variables. 



21 



TABLE I 



Fittiaa N 
01 

02 

03 

04 

05 

06 

07 

08 

09 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 



Fittings Available From Program Menu 

umb er Descri ption 

Intake shaft, rectangular cross 
section, side orifices, with or 
without louvers 

Straight duct, round or 
rectan gular 

Smooth radius round elbow 

Found 90 degree segmented elbow 
with 3,4, or 5 pieces 

Mitered round elbow witc or 
without concentric vanes 

Mitered rectangular elbow 

Smooth radius rectangular 
elbow 

Smooth radius rectangular 
elbow with splitters 

Mitered rectangdiar elbow 
with vanes 

Eectan gular elbow with 
converging or diverging flow 

90 degree rectangular elbows 
in a 2-snaped conf iguration 

90 degree rectangular elbows 
in different planes 

Branch section of a civerging 
wye 

Main section of a diverging wye 

Branch section of a convergent 
wye 

Main section of a convergent wye 
Conical round diffuser 
Plane in-line diffuser 
Pyramidial in-line diffuser 
Transitional diffuser 
Sound contraction 
Rectangular contraction 
Screen obstruction in duct 
Louver entrance 
continued next page 
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Filter 


element 
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Multi- 


baffle type silencer 
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Gas tu 


rbine module 


enclosure 
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Waste 


heat recovery 


boiler 
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Abrupt 


exit 
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Fittin 
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ently under such conditions to produce the same horsepower 
and speed. The proper correction factor set to be applied 
to the tabulated data is the set for constant speed and 
horsepower. The corrections are applied in the program with 
each iteration of the duct system performance calculations 
using the current values of the inlet and exhaust duct 
losses and ambient conditions. The corrections are very 
small (less than twc percent) and tne convergence of the 
correct engine operating point and duct losses created by 
the mass flow of air required at the operating point is 
quite stable. 

F. FAN/SYSTEM INTERFACE 

The operating point of the fan installed in a duct 
system is the point where the fan character is tic curve 
intersects the system characteristic curve. The fan curve 
shows pressure rise vs. flow rate. Witn increasing flow the 
pressure rise across the fan is reduced. The system curve 
is the opposite, increasing flow in tne system increases the 
resistance to flow. Figure 2.2 represents tnis situation 
graphically. 
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lE the iteration process the system curve is estimated 
as a quadratic fitted to the origin as a minimum point and 
the other point at the assumed flow and me resulting pres- 
sure loss. Similiarily the fan curve is also represented as 
a quadratic with a maximum at maximum pressure attainacle 
and the corresponding flow and another point at zero pres- 
sure and maximum flow. The representation of the fan 
performance for the default condition, the Spruance class 
destroyer module cooling fan, is excellent. With an equa- 
tion for both curves the point of intersection can be 
obtained. The resulting flow is used in the next iteration 
until the resistance of the system and tne pressure rise 
across the fan is the same for the assumed flow- 



G. JONCTIONS OR WYES 



An excellent discussion of tne mixing of two streams 



moving at different velocities was written by Idel'chik and 



is presented here to develop the background for the 
eductor/system interface discussion. 



The junction of two parallel streams moving at 
different velocities is characterized by turbulent 
mixing of the streams, accompanied bv pressure losses. 
In the course of this mixing an excnange of the momentum 
takes place between the particles moving at different 
velocities, finally resulting in the equilization of the 
velocity distributions in the common stream. The jet 
with higher velocity loses a part of its kinetic energy 
by transmitting it to the slower jet. 



The loss in total pressure oefore and after mixing 
is always large and positive for the higher- velocity 
jet, ana increases with an increase in tne amount of 
energy transmitted to the lower velocity jet- 
Conseguently , the resistance coefficient, which is 
defined as tne ratio of the difference of total pressure 
to the mean dynamic pressure in the given section, will 
likewise always be positive. As to the lower- velocity 
jet, the energy stored in it increases as a result of 
mixing. The loss in total pressure and the resistance 
coefficient can, therefore, also nave negative values 
for the lower- velocity jet [Ref. 5]. 

Tne program incorporates this concept at the junction of the 

module cooling air and the engine exhaust (if tne system is 

so configured) . The program assumes the lower velocity jet 
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Figure 2-2 Fan/Systen Interface. 
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to be the cooling flew and the ni'jner velocity jet to be tne 
exhaust flow. 

H. EDDCTOE/SYSTEM INIEEFiCE 

The eductor discussed in this section is used in the 
engine's exhaust to move cooling air through the cooling 
ducting and engine enclosure. There is a mixing of the 
cooling flow and exhaust before it is discharged to the 
atmosphere. This section does not discuss the eductor 
installed at the exhaust duct exit. The only component of 
interest there is the nozzle as a dynamic loss. The effect 
of the external mixing tube is small and can be neglected. 

The module cooling eductor is used on the Oliver Hazard 
Perry class frigate. It is shown schematically in figure 
2.3. The eductor system is illustrated in figure 2.4. This 
figure shows the geometry and pressure distribution during 
the mixing of primary flow, engine exhaust, and the secon- 
dary flow, module cooling flow. A match point concept can 
be developed for the eductor much like the fan and system 
interface concept shown in figure 2.2. One curve is called 
the gain reguired and the other the gain available. These 
curves are shown in figure 2.5. Given the geometry of the 
mixing area the gain available can ne computed by varying 
the cooling flow while the primary flow, the engine exhaust, 
remains nearly constant for the desired power setting. The 
gain available is a maximum at zero cooling flow. 

The gain reguired is computed by dividing the system at 
the eductor and is analogous to the system characteristic 
model in figure 2.2. On the downstream side cooling and 
engine exhaust flows move through the exhaust duct. The 
cooling flew moves through tne upstream duct. Total pres- 
sure losses can be computed for both and the sum is the gain 
reguired. Since these computations are taking place at 
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engine exhaust. 



nearly constant primary flow, engine exhaust, the gain 
required at an operating point is a function of the cooling 
flow. The gain required at zero cooling flow is the exhaust 
duct pressure loss under the flow condition represented by 
the engine exhaust alone. Increasing the cooling flow 
increases the losses in the exhaust duct and also brings to 
tear losses in the cooling duct. Therefore the required 
gain is a minimum at zero cooling flow and increases with 
increasing cooling flew. 

There must be an intersection of the gain required curve 
and the gain available curve if the system is to operate. 
This condition occurs if the gain available at zero cooling 
flow is greater than the gain required at zero cooling flow. 
The intersection must also be far enough to the right to 
provide the minimum cooling requirement for the load on the 
engine. The matching technique is to begin with seme 
minimum cooling flow as specified by the engine manufacturer 
and march to the right adding a small increment to the 
cooling flow until gain required equals gain available. 



I. SYSTEM ANALYSIS 

Sections of the intake and exhaust ductwork will be 
analyzed from node tc node resulting in the pressure loss 
for the section. The sections will be called branches. A 
node is the starting or ending point of a branch. The 
fittings of a branch will be entered into the program in the 
sequence encountered by the flow along a branch. A node is 
an entry, diverging wye, fan, the gas turbine engine (not to 
be confused with the engine enclosure) , convergent wye, or 
an exit. Figure 2.6 snows the six resulting schematic 
representations of a gas turbine installation and the varia- 
tions of cooling flow available. The numbered dots are the 
nodes. Node 1 is always the main inlet entrance. Node 3 is 
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Figure 2.3 Module Cooling Eductor Schematic. 
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Figure 2.4 Module Eductor Performance. 
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Figure 2.5 Eductor /System Interface. 
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always the engine. Mode 4 is always tne cooling fan. Mode 
6 is always the main exhaust exit. Node 2 may ce either an 
independent entry for the cooling flow or the branch loca- 
tion wnere the cooling flow dxverges from tne combined 
inlet. Node 5 may te either an independent exit for the 
cooling flow or the junction of cooling flow with the engine 
exhaust. The hashed area is the engine and the larger 
rectangle represents the engine module wnich surrounds the 
engine and is a fitting in the cooling flow branch. The 
tranches are designated by the node number at tne begining 
and end of the branch. The reader should refer to the 
user's manual for a complete description of entry of the 
fittings into the program. 

The system in figure 1. 1 would be a class three system. 
It has the cooling flew nranching off the maxn inlet (diver- 
gent wye) and joining the main exhaust near the exhaust exit 
plane of the engine (convergent wye) . It also has a fan 
installed which differentiates it from the class five 
system. 
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Figure 2.6 System Arrangements and Their Classification. 



The tasic procedure for system analysis is to assume 
enough flow and loss information to proceed with the anal- 
ysis and check the assumptions with continuity of pressure 
at the nodes with each iteration. If tne pressures do not 
match, new assumptions are made based on the current 
performance and the iteration is continued until convergence 
is achieved. 

With six different types of systems to match, six 
different schemes must be implemented in the computer code 
to handle overall system matching. £ach scheme must be 
tailored to handle the expected components that make it 
different from any other system. For example, system six 

has no cooling fan and system one does. System one needs to 

consider the fan and system interface but system six does 
not. Appendix A is the complete program listing. Appendix 
B contains a flow chart of the most complex system in the 
program, system three, and incorporates all possible 
component/system interfaces. 

J. TOTAL PBESSOBE GEADIENT 

The total pressure cnanges represent the energy reguire- 
ments of the system. Total pressure losses in the intake 
and exhaust ducts are inputs to the engine performance 

subroutine in the program and are used to determine the 

operating parameters of the engine. Fan and system matching 
is accomplished with the total pressure reguiremcnt. 
Therefore total pressure gradients in the ductwork are most 
important to analysis. Measurement on the other hand 
usually produces the static pressure gradient. The static 
pressure at a point is less than the total pressure at the 
point. Figure 2.7 shows a typical representation of the 
pressure changes during flow in a simple duct. Losses in a 
duct are due to the irreversible transfur mations of 
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mechanical energy into neat and the losses are used to plot 
the total pressure grade line. Note tnat some Sittings such 
as diffusers and contractions cause a change ir. the static 
pressure guite different from the change in total pressure. 
This is a result of a change in the velocity pressure 
tnrougn a variable area fitting. The sample program output 
presented in the user’s manual, appendix C, can be used to 
produce similar plots cf the pressure grade line. 
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Figure 2.7 Typical Duct Pressure Changes 
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I1TEBACTI7E CODE 



Interactive code allows the user to sit at a computer 
terminal, access a desired program, specify inputs ty typing 
at the terminal keyboard, and execute the program. All 
inputs are requested by statements appearing on the terminal 
screen. Resulting output is written to the user's files 
which may be viewed at the terminal or sent to the printer. 
Tne interactive mode of operation is especially valuable 
because it allows the user, by modifying selected input 
values, to quickly evaluate the effects of changes to an 
existing or contemplated design. Modification of a system 
is accomplished interactively within tne editor portion of 
the program. The editor offers the anility to change a 
fitting. For example, a mitered round elbow could be modi- 
fied to add cascaded turning vanes or a different elbow 
substituted entirely. Also offered is the ability to add or 
delete a fitting. The addition option does not allow the 
user to add a new first fitting to a branch, however one may 
be added anywhere else. 

The most important consideration in writing an interac- 
tive computer program is what appears on the screen and how 
it appears. Requests for inputs are in English rather than 
engineering jargon. Onits are all in the English system. 
All lengths are in feet, etc. Axi logical cnoices are 
accomplished by entry of one letter, the first letter of the 
choice. For example, "Y" is the reply for yes. All logical 
choice replies nr^ indicnted vitni:. parenthesis at the era 
of the question. Should the user not use one of the choices 
indicated, the question will be repeated until a prot-er 
response is given. Default values are avaiianle for many 
circumstances to minimize the input effort. A default is 
not available dv simply depressing the return key. The user 
must elect default values by a logical choice. For example 
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the Hamilton Standard rilter system installed on tne 
Spruance class destroyer is available as a default for the 
raxLer aittxnj. xhc usex stxtots ci.xs ^y unsvierxriy a_rxrrua~ 
txvely tc a question asking if tne isd ’•ould ii^e to use 
tJ.e default filter system. 



C. CTHSE PE03RAM FEAIOBES 



Anocher consideration in interactxve computer programs 



is the practice of 



'user crooxing" tne inputs. 



:n otne: 



words, an interactive computer program should not terminate 
execution (i. e. , "era sn") if an improper input value is inad- 
vertently defined by the user. On numerical and logical 
input two features are incorporated to protect input cc the 
program. lirst, read statements are protected with error 



and end 



file detection. A problem with ’input here is 



ban : 



,eu 



by asking the user to re-enter the value. On 
numerical input if it happens again on the same question the 
program stops execution. Secondly, if an incorrect number 
is properly defined to the program in tne geometry input 
phase, the user is offered one last chance to re-enter 
correct fitting data if the user realizes his mistake before 
he is asked if he wants to load tne data for the fitting. 
Tne user is assisted here by a check for area continuity 
from one fitting to the next. A warning is provided if 

continuity is not maintained. Electing not to load a 
fitting brings the user bacx to tne menu with the program 
ready to accept a choice of fittings for usc instead of the 
erroneously entered fitting. 

The program is noduxarized oy tne extensive use of 
surroutines. Modularization facilitates program improve- 
ments ry allowing the upgrade and replacement of individual 



subro utines . 



'his is a difficult procedure to 



blocks are used. 
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eiininated irom tne prograai. Ihe aser jay decide to change 
the fittings avaixahle ir. tne aer.u, for exanpie. Internal 
cod^ docuaenta ti on Sx-.ows the areas that rust re cnangei to 



accomplish this task. 



Appendix I ^s a user's manual ind completes the external 
piopran iosamen t ati o n . The nanudx ex-lains no to exec-.te 

t*.e prcjiam as installeu on tne flavai Postarada ate Schco.'s 
I1'1 3031 jain frame ccn^uter ana c Si..alxer VAI ro:uput<rr. A 



sample case is described and san^x^ 



session 



also recorlcl to 



output provised. A 
s/.cw tVKj-cai screen 
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IV. REMITS AND RECOMMENDATIONS 



A. GENERAL 

It is ncv y.ossiile to ar.alytt; system, ptrforaance cf an 
or ii I. ary mariae ^as turbine installation. Prior to tne 
deve iopoent of this proprar subsections of t.-.e systc-i w-^-re 
analyzed and their interaction was nejxected. In^s ii i not 
provide serious errors in tne esriaation of enpine yerforn- 
ance but it did not provide coir.pj.ete xunornation on systen 
perfcroance. In particular, the preuiction on cooli:.j z 
was not accurate. This was partic ulari ly acute wr.en 
system util*iej. a locule euuctor. 

The proces<^' of iranu^lly assicniny a resist ince coeffi- 
cient to a fitting has been eliminated. Now it is possible 
for the computer program to analyze the geometry of most 
fittings rapidly and apply the correct resistance coeffi- 
cients for tne one-dimensional analysis without the user 
looking up any correlations. 

The program flexibility is demonstrated by the ability 
to guickly change input parameters and analyze a system at 
any operating point. Previous methods analyzed components 
at full power and then used a proportionality model wnere 
losses were proportional to the square of tne engine air 
mass flow rate. This method consistently under-estimates 
duct losses at low power because it does not take into 
account the variation of cooling flow provided with an 
installed fan or module eductor. At low power the cooling 
flow can be a significant contributor to duct losses and the 
previous method can net predict this contribution . 
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B. IIHIIATIONS 

It should be emphasized that any one- dimensio nal 
analysis does not handle flow distortion well. Suspected 
problems in this area are still best dealt with by the use 
of model studies. The limitation of a oae-dimensionai model 
is that a fitting's pressure loss may be known for uniform 
flow distribution, tut is is difricult to predict the loss 
with distorted flow. It is known however that the distorted 
flow situation will have a larger pressure loss, but how 
much is not easily determined. A one-dimensional analysis 
may point to problems with flow distortion. The program 
recognizes the potential for flow distortion on certain 
fittings such as diffusers and points out this potential. 
Ix a fitting's pressure loss can vary significantly with 
distortion of flow and the one-dimensional analysis has 
computed a large pressure loss, the user should flag the 
fitting for futher study by model testing as the pressure 
loss has probably been underestimated. 

Not all possible duct designs can have their fittings 
modeled by the program. Some fittings will be available 
from the program menu and others will be similar to fittings 
listed, but not exactly. Then there are some which may not 
be listed at all. If the fitting is close, it may be used 
and expected to give reasonable results. If tne fitting is 
not listed then the user must provide the resistance coeffi- 
cient by using the "fitting not listed" choice. The data 
for this entry may come from a published correlation or from 
tests performed on similiar installations. It is in the 
area of correlations where most benefit can be gained by 
program modification. 
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C. EECOHHENDATIONS 

The projram currently runs as a stand alor.e j- royra n , Lut 
some increased utility may be realized by incorp oratin^ some 
or the subroutines in otner programs which would tnen input 
a snip's horsepower and R?:i requirements for an operatinj 
profile instead of point by point user input. 

The General Electric L.12500 engine is currently the 
engine witnin the program. Tne engine performance in tne 
program is built by table interpolation of the published 
performance data. General Electric also offers a program 
wnich provides performance data and it is recommended that 
this program be substituted for tne engine subroutine 
currently in the program. This will eximir.ate any doubts 
about engine performance predictions and make the parameters 
more offical. Also the General Electric program covers the 
complete performance map of the engine whereas the engine 
subroutine used in this analysis was limited to 22, 500 
horsepower maximum. There is stil.. a little power left 
beyond this value and the program can not currently Oj;erdte 
there. Another modification concerning the engine is 
improving the module temperature out model used in the FIID? 
subroutine. The model used produces reasonabl<= results but 
is not based on test data but on operator experience. 

The biggest improvement in program performance and 
utility can be made by the incorporation of improved fitting 
flow resistance correlations of test data. dodels and full 
scale systems should be instrumented to ^.rovide duct pres- 
sure loss data to check tne program's analysis. Fhere tne 
program prediction is not accurate new fitting correlations 
should oe developed. Potential fittings lor improved mcdels 
are louvers, silencers, diffusers with distorted flow, junc- 
tions and wyes (especially where eductor action is desired) , 
and toiler tube bundles. w'itn sufiicient data these 
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fittings could te modeled better and more simply, 
overall cbjective is to increase bota tne utility and 
racy of the program analysis. 
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appendix a 

PROGRAM LISTING 



««*«««* *««« ««« m * *«**««*««««« « «*«««««««« « «««« ^ 

«*««««*«*««****«*««««««««*««*««*««««******««**«««•««««*««««**«««*«« 

C ANALYTIC J0D2L OF A GAS TURBINE INSTALLATION ON BOARD A SHI? 

C 

C PEOGFAM WRITTEN EY STEPHEN H. SZZELL, LCDR, USN 
C VERSION 1,0 DATE MARCH 30. 1934 

C PURPOSE: TO ANALYZE THE DUCTING AND GAS TURBINE INSTALLATION 

C AS MIGHT BE INSTALLED ON A SHIP. INPUT DUCT GSCMETRY, 

C AMBIENT CONDITIONS, AND POWER SETTING TO GET PEHEORMANCE 

C PARAMETERS. 

C 

C***«*«**«4t«*4t*4t««*«««4i*«4i*««*««******««***********«*««*«*«««««««4i«*««* 

C THIS IS THE MAIN CONTROL PROGRAM. IIS SOLE PURPOSE IS TO BRANCH 
C TO THE AREA Of THE PROGRAM YOU NEED. IF YOU ARE ANALYZING A NEW 
C SYSTEM YOU WILL NEED TO BUILD A DATA FILE FOR THE SYSTEM. YOU 

C WILL BE DIRECTED TO THE BUILD SUBROUTINE. IF YOU WANT TO MAKE 

C SOME CHANGES TO A SYSTEM YOU WILL GO TO THE EDIT SUBROUTINE. 

C WHEN YOU HAVE A DATA FILE YOU LIKE YOU WILL NEED TO GO TO 

C THE COMPUTE SUBROUTINE. IN THE COMPUTE SUBROUTINE YOUR DATA FILE 
C WILL BE READ AND THEN YOU WILL BE ASKED JUESTIOHS TC ESTABLISH 

C THE CPERAIING POINT. THEN THE PROGRAM WILL COMPUTE THE OPERATING 

C PARAMETERS YOU NEED AND OUTPUT THEM TO THE OUTPUT FILE. 

C 

C NC COMPUTATIONS ARE DONE IN THE MAIN CONTROL PROGRAM. 

C 

C SOBRCOTINES CALLED; BUILD, EDIT, COMPUT, AND FRTCMS 
C 

C A NOTE ABOUT FRTCMS, YOU WILL NOT FIND IT IM THE LISTING. IT IS 
C LIBRARY SUBROUTINE AVAILABLE AT NPS AND IS USED TO CALL THE 

C OPERATING SYSTEM FROM WITHIN THE FORTRAN PROGRAM. I USE IT FOR 

C TWO PURPOSES. FIRST TO DEFINE MY FILES. SECOND TO CLEAR THE 

C SCREEN AT YOUR TERMINAL SO THE WRITE FORMATS DON’T GET CHOPPED 

C UP. IF YOUR SYSTEM DOES NOT HAVE THIS CAPABILITY YOU WILL HAVE 
C TO SUBSTITUTE AN APPROPRIATE CODE TO ACCOMPLISH THE SAME THINGS. 

C THIS NOTE APPLIES TO THE IBM 3033 COMPUTER. 

Q «««*«**«**«#* ««« «*«*«**«** ««*«*««* **«« 

INTEGER ANS, YES.NO.CO MPUT,ZDIT,CUIT 

DATA YES/’ V/, NC/’ N’ /, COMPUT/’ C LDIT/’ S’ /, UUIT/’Q ’/ 



NPS IBM 3033 MAIN FRAME COMPUTER PROGRAM REQUIREMENTS 
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HERE IS WHERE I SET OP THE FILE DEFINITIONS USING THE LIBRARY 
SUBROUTINE ’’FRTCMS’’. THERE ARE NO OTHER FILEDEF’S REQUIRED. 



READING TERMINAL INPUT 
CALL FRTCMS (’ FILEDEF 
THE TF 



WRITING TO TF 



lERMIN AL 



•05 



’ , ’ TERMINAL’) 



CALL FRTCMS (’FILEDEF ’,’06 ’ , * TER MIN A L ’ ) 

SrCEAGE^flLE FOR_THE DUCT GEOMETRY DEPENDENT VARIABLES 



’08 



’ , ’ DISK 



•DUCT 



CALL FRTCMS (’ FILEDEF , 

♦ ’ D AT A ’ ) 

STCPAGE FILE FOR THE PERFORMANCE DATA OUTPUT 

CALL FRTCMS (’FILEDEF ’,’04 ’,’DISK ’, ’OUTPUT ’, 

♦ ’DATA ’) 

CALL FRTCMS (’CIRSCRN ’ w 

INTRODUCTION. IS THERE A DUCT DATA FILE ??? 

WRITE (6,600) 

EVERY READ IS PROTECTED AGAINST A NULL ENTRY AND AN ERROR IN 
INPUT. THIS IS ACCOMPLISHED *ITH ”END = XX, ERR = XX” . YOUR SYSTEM 
MAY NOT HAVE THIS CAPABILITY, IN WHICH CASE DELETE IT OR 
SUBSTITUTE AND EQUIVALENT CODE. 



READ (5,60 1, END=12.ER R=12) AN* 
CALL cRTCMS (’CLRSCEN ’) 
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nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn 



non nnnoo 



EVZHY QUSSIICN REPLY IS CHECKED TO .^.AKE SURE ONE OF THE ALLOWED 
RESPONSES WAS USED, IF NOT THE USES IS WARNED AND ASKED TO 
ANSWER WITH ONE Or THE CORRECT SESPONSES. 



12 


IF ((ANS. 
REWIND 




WRITE 




GO TO 


20 


CONTINUE 



TO 



3 

6,6 0 2 ) 



IF 

IF 



(ANS- EQ. YES) GO TO 30 
(ANS. EQ.NO) GO TO 50 



30 

32 

40 

"50 

: 

60 

62 

70 

"ao 

'"90 

92 

100 



DO YOU WANT TO COMPUTE OR EDIT THE DATA FILE ????? 
WRITE (6,603) 

READ (5,o0 1, ENr; = 32,EH R=32) ANS 

IF ^J;ANSj^EQ.COMPDT) .OR. (ANS.EQ.EDIT) ) GO TO 40 

WHITE (6,602) 

GO TO 30 
CONTINUE 

IF (ANS. Sg.COMPUT) GO TO 80 
IF (ANS. EQ. EDIT) GO TO 110 

CALL 3UILD 



WRITE (6,604) 

READ '(5,b01,ENC=62,ERR = 62) ANS 
CALL FRTCMS ('CIRSCRN *) 

IF ( (ANS. EQ. COHPUT) .OR. (ANS.EQ. QUIT) ) 
REWIND D 
WRITE (6,602) 

GO TO 60 
CONTINUE 

IF (ANS. EQ.COMPUT) GO TO 30 
IF (ANS. EQ. QUIT) GO TO 9 99 



GO TO 70 



CAI 



COMP 



WRITE (6,6 05) 

READ (5. 60 1, iNC=92, EHfl=92) ANS 

IF ^^ANS. E^. EDIT) .OR. (ANS.EQ. QUIT) ) GO TO 100 



WRITE (6,602) 

GO TO 90 
CONTINUE 

IF (ANS. SO. EDIT) GO TO 110 
IF ANS.EQ.QUIT GO TO 999 



110 CALL ED 



999 

600 



60 1 
602 



GO TO 60 
CONTINUE 

FORMAT (* A ONE-DIMENSIONAL MODEL FOR THE SYSTEM PERFORMANCE*/ 
f * OF A MARINS GAS TURBINE IN S TALLA TI CN * // 

* BY LCDS. STEPHEN M. EZZELL*// 

- * VERSION 1.0 MARCH 30 , 1984 V 

OPTIONS: BUILD A DATA FILE REPRESENTING THE DUCT SYSTEM*/ 
EDIT OR CHANGE THE DUCT DATA FILE */ 

COMPUTE SYSTEM PERFORMANCE */ 

METHOD: INTERACTIVE INPUT OF DATA, BRANCHING TO DESIRED*/ 

OPTION BY ANSWERING QUESTIONS*// 

WARNING, TWO NULL ENTRIES ON NUMERICAL INPUT WILL ♦**»/ 
♦♦♦ KILL THE PROGRAM. *♦**/// 

♦ * FIRST QUESTION:*/ 

>* DO YOU HAVE A DATA FILE OF DUCT FITTINGS (I/N)?*) 

FORMAT (A1) 

FORMAT (* YOU MUST ENTER THE LETTER INDICATED IN THE BRACKETS*/ 
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♦ 


t 


FOR 


A PROP EE ANSWER !!!!!!') 


603 


FORMAT 


(/* 


DO 


YOU KANT TO EDIT THE FILE 


60 4 


+ (E/C) ?• 
rCnMAT 




DO 


YOU WANT TO COMPUTE WITH T 


o05 


FORMAT 

STCP 

END 


(• 


DO 


YOU WANT TO EDIT THE DUCT 



OR as£ IT FCE COMPUTATION 

HI FILE 01 QUIT (C/Q)?M 
DATA FILE OR QUIT (E/Q) i • ) 
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C SUILi: SUBROUTIME: INPaTS GEOMETRY OF DUCT. OUTPUTS DUCT DATA 

mmm* if ******* ** **m**^t ******************* * ** ***mmm*mm * 

TO GET THIS GOING THE DUCT SYSTEM YOU ARE WORKING WITH NEEDS TO 
BE CLASSIFIED- SYSTEM SUESOUTINE DOES THIS. WITH THE CLASS OF 
THE SYSTEM KNOWN, ID ENT IF ICAT ION NUMBERS ARE ASSIGNED. THE MENU 
IS CALLED UP AND FITTINGS ARE ENTERED FOR THE SYSTEM TO A FILE 
NAMED DUCT DATA. THE DUCT DATA FILE WILL 3E SERIALIZED 3Y THE 
USEE WITH A SIX DIGIT NUMBER OF THE USER’S CHOICE. 

VARIABLES: WKI AND WKR ARE TRANSPORT ARRAYS USED TO FILL THE 

SYSTEM ARRAYS WORKI AND WCRKH. WORKI(NNN,1) IS THE 
ID NUMBER, AND WORKI(NNN,2) IS THE FITTING TYPE. 

WORKS STORES FITTING DATA SUCH AS LENGTHS, AREAS, AND 
RATIOS. 



SUBROUTINE BUILD 
HEAL WKH.WCRKR 

INTEGER SORL , WKI, WORK I, TERM, TYPE, BRANCH .FIT ID, GEO M, DUMMY,M, CLASS 
DIMENSION GEOM (6) ,WKI (2) ,WKR(4) ,WORKI(200, 2) , WORK H ( 200 , 4) 

INST FINDS OUT IF YOU WANT ..ONG OR SHORT INSTRUCTIONS 

CALL INST (SORL , TERM) 

SYSTEM CLASSIFIES THE SYSTEM TO ONE OF SIX POSSIBLE SYSTEMS 



CALL SYSTEM(SCSI,CLA3S) 

GO TO '(1 ,2, J, 4,5,6) , CLASS 

GEOM IS THE IDENTIFICATION NUMBER TO BE USED WITH THE FITTING. 

IT IS BROKEN UP INTO FOUR PARTS. THE FIRST DIGIT IS THE SYSTEM 
CLASSIFICATION, 1,2, 3, 4, 5, uR 6. THE NEXT TWO DIGITS ARE THE 
STARTING NODE AND THE FINISHING NODE OF THE 3FANCH. THE NEXT 
DIGIT IS THE FLOW IN THE BRANCH, ZERO IS COOLING FLOW, ONE IS 
ENGINE FLOW, TWO IS COMBINED COOL ING AND ENGINE FLOW. THE LAST 
TWO DIGITS ARE FOR THE ORDER NUMBER OF THE FITTING IN THE BRANCH. 

EXAMPLE: 113101 SYSTEM ONE, NODE ONE TO THREE, ENGINE FLOW, 

FIRST FITTING IN BRANCH 




1) = 1 1310 1 

2) = 1 2400 1 

3) = 13610 1 

4) = 1 450 0 1 
H=4 

FETCMS (’CLRSCRN ») 
WRITE (6.600) 

GO TO l5 

1)=2 1220 1 
2i=22310 1 
3' =224001 
4' =23 6101 
5 =245001 
H=5 

FRTCMS (’CLHSCRN •) 
WRITE (6, 60 1) 

GO TO 13 

■ = 3 12201 
=323101 
= 3 2400 1 
=335101 
= 34 5001 
=35620 1 




;EClM 

GECM 

GEOM 

GECM 

GECM 



1 ) 



GECM(6) , 
ERANCH=6 
CALL FEICMS 
WRITE (6. 602) 
GO TO 10 



(’CLRSCRN ’) 
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non noon on on noon 



non noon n no noon onnoo 



GZCyi ( 1) = 4 1 31 01 



10 



20 



30 



GECM 
GEC.'I (j 
GEC^'1 (4 



= 4 24001 
=435101 
=445001 



GECi'l (5) =456201 
ERANCH=5 

CALL FHTCMS (’CIRSCRN ») 

WRITE (6. 603) 

GO TO l5 
GECM { 1) = 5 122 01 

8K5 5 

GECM =535101 
GECm] 5)=556201 
EHANCn=5 

CALL FRTCMS ( » CLRSCEN ’) 

WRITE (6. 604) 

GO TO 10 
GEC« (1)=6 13101 
GECM (2) =625001 
GEC.'I 3) = 63510 1 
GECt^. (4) =656201 
BRANCH=4 

CALL FRTCMS (•CIRSCRN •) 

WRITE (6, o05) 

CONTIlioS 

.^ 1=0 

WRITE. (6,6 06) 

READI IS AN INTEGER READ SU3R0aXINE TO PROTECT THE PROGEA.1 FROM 
CRASHING ON NULL INPUT OR ERROR INPUT. IT ALSO ALLOWS FREE 
FCFMAT INPUT. 



CALL READI (DUMMY, 5) 

CALI FRICMSC CLRSCRN ») 



BRANCHES 



40 



600 



NOW EACH BRANCH WILL BE FILLED UP WITH THE FITTINGS. 

ARE TAKEN IN NDMERICALLY ASCENDING ORDER. 

DO 40 1=1 , ERANCH 

CALL MENU (M.TERM. TYPE, GEOM (I) ) 

THE MENU CHOICES ARE 0 THRU 30, CHANGE THE NUMBER OF FITTINGS 
AND YOU MUST CHANGE THE FOLLOWING IF CONDITION ACCORDINGLY 
IF ((lYPE. GE.O) .AND. (TYPE.LT. 31) ) GO TO 30 
CALL FRTCMS (»CLRSCRN ») 

WRITE(6. 607) 

GO TO 20 

ZERO MEANS NO MORE FITTINGS THIS BRANCH 

IF (TYPE. EQ.O) GO TO 40 

M=M'*'1 

A FITTING HAS BEEN SELECTED, NOW GO TO THE BRANCHING SUBROUTINE 
TO ENTER THE FITTING. 

CALL SELECT (M, SOR L, GECM (I) , TYPE , WORKI, WOHKH) 

CALL FRTCMS (»CLRSCRN ») 

GECM(I) =GEOM I) 

GO TO 20 
CONTINUE 

AIL THE FITTINGS HAVE BEEN ENTERED AND THE DATA FILE IS ABOUT 
TO EE WRITTEN. 

CALL SUMOUT(WORKI, WOR KR.M) 

FCEMAT(» SYSTEM IS CLASS ONE, SEPARATE ENG I NE/C CCLING FLOWS. V 
YOU RILL BE ENTEHI NG FITTINGS FOR FOUR BRANCHES. */ 

♦ ’ 1. ENGINE INLET TO THE ENGINE.*/ 

4* 2. COOLING INLET TO THE COOLING FAN.*/ 

4* 3. ENGINE EXHAUST TO THE ATMOS PH ERE. ’ / 

4» 4. COOLING FAN EXHAUST 10 THE ATMOSPHERE, VIA GT MODULE.*) 
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60 1 ?Oa.'1AT{’ SY3TEJ1 IS CLASS T7?0, CG13IMED INLIT FCR ZNGIME AND */ 

♦ • COCLING FLOW AND SEPARATE FLOWS FOR ENGINE EXHAUST AND .10DDLI V 
‘ COOLING HOT EXHAUST. YOU WILL 3S ENTERING FITTINGS FOR FIVE’/ 
BRANCHES.’/ 

1. CCH3INED INLET TO THE C0H3INED SECTICN OF A DIVERGENT WYE 
'/’ 2. HAIN SECTION OF A DIVERCENT WYE TC THE ENGINE.’/ 

BRANCH SECTION OF THE DIVERGENT WYE TO THE COOLING PAN.’/ 
ENGINE EXHAUST TO ATMOSPHERE. ’/ 

COOLING FAN EXHAUST TO THE ATMOSPHERE VIA GT MODULE. ’> 



602 



SYSTEM IS CLASS THREE , COM 3IN ED INLETS AND EXHAUST '/ 



4. 

5. 

FORMAT(’ 

FLOWS FOR THE ENGINE AND MODOLS COOLING. A CCCLING FAN IS’/ 
INSTALLED. YOU WILL 3E ENTERING FITTINGS FOR SIX BRANCHES.’/ 

1. COMBINED INLET TO THE COMBINED SECTICN CF A DIVERGENT WYE 
’/’ 2. MAIN SECTION OF THE DIVERGENT WYE TO THE ENGINE.’/ 

BRANCH SECTION OF THE DIVERGENT WYE TC THE COOLING PAN.'/ 
ENGINE EXHAUST TO MAIN SECTION OF A CONVERGENT WYE.'/ 



603 



5. 

y 

formatV 



604 



605 



3. 

4 . 



WYE. 



AN EDUCTOR INSTALLED AT THE EXHAUST PLANE OF THE ENGINE’/ 
IS CONSIDEP.SD TO BE A CONTRACTION FOLLOWED BY THE MAIN’/ 
SECTICN OF A CONVERGING WYE FOR THE PURPOSES OF THIS ’/ 
PROGRAM. ’/ 

COOLING FAN EXHAUST TO THE BRANCH SECTION OF A CONVERGENT 



COMBINED SECTION OF A CONVERGENT WYE 
SYSTEM IS CLASS FOUR; SEPARATE INI] 



TO THE ATMOSPHERE. ’ ) 
S FCR THE ENGINE’/ 



AND COOLING FLOWS, COMBINED FLOWS FOR THE ENGINE EXHAUST AND’/ 
HOT MODULE CCCLING. A COOLING FAN IS INSTALLED. ’/ 



ENTER 

1 . 
2 . 
3. 



4 . 

WYE. ’/ 

5. 

FORMAT (’ 



FITTINGS FOR FIVE BRANCHES. •/ 

ENGINE INLET TO THE ENGINE, V 
COOLING INLET TO THE COOLING FAN.'/ 

ENGINE EXHAUST TO MAIN SECTION OF A CONVERGENT WYE.’/ 

AN EDUCTOR INSTALLED AT THE EXHAUST PLANE CF THE ENGINE’/ 
IS CONSIDERED TO BE A CONTRACTION FOLLOWED BY THE MAIN'/ 
SECTICN OF A CONVERGENT WYE FOR THE PURPCSES OF THIS'/ 
PROGRAM. ’/ 

COOLING FAN EXHAUST TO THE BRANCH SECTION CF A CONVERGENT 



V’ 






606 

607 



♦ S 



COMBINED SECTION OF A CONVERGENT WYE TO THE ATMOSPHERE.') 
SYSTEM IS CLASS FIVE, COMBINED INLET AND EXHAUST FlOW. ’/ 

AN Eductor system is used to pump cooling air.'/ 

ENTER FITTINGS FCR FIVE BRANCHES. '/ 

1. COMBINED INLET TO THE COMBINED SECTION OF A DIVERGENT WYE 
2. MAIN SECTION OF THE DIVERGENT WYE TO THE ENGINE.*/ 

THE EEUCTOR ONLY, THIS PROGRAM CONSIDERS THIS BRANCH TO’/ 
CONSIST OF ONLY TWO COMPONENTS, A CONTRACTION AND THE’/ 
MAIN SECTION OF A CONVERGENT WYE INSTALLED AT THE EXHAUST 
PLANE OF THE ENGINE. ’/ 

BRANCH SECTION Of A DIVERGENT WYE VIA THE GT MODULE TO’/ 
THE EDUCTOR. THE PROGRAM CONSIDERS THIS PART CF THE'/ 
EDUCTCR TO BE THE BRANCH SECTICN OF A CONVERGENT WYE.’/ 
COMBINED SECTION OF A CONVERGING WYE TO THE ATMOS? HER E. ’ / 
INSTAIIATION OF A -AST2 HEAT BOILER IS NOT REC CMEN DED. * ) 
FCRMATC SYSTEM IS CLASS SIX: SEPARATE INLETS FOR THE ENGINE’/ 

AND COOLING FLOWS, COMBINED FLOWS FOR THE ENGINE EXHAUST AND’/ 
HOT MODULE COOLING. AN EDUCTOR IS INSTALLED.’/ 

ENTER FITTINGS FOR FOUR BRANCHES.'/ 

ENGINE INLET TO THE ENGINE.'/ 

COOLING INLET TO THE EDUCTOR VIA THE GT MODULE.’/ 

THE PBCGRAM CONSIDERS THIS PART 0? THE EEUCTOR TO BE’/ 

THE BRANCH SECTION OF A CONVERGENT WYE.’/ 

THE EDUCTOR ONLY, THIS PROGRAM CONSIDERS THIS BRANCH TO’/ 
CONSIST OF ONLY TWO COMPONENTS, A CONTRACTION AND THE'/ 
MAIN SECTION Of A CONVERGENT WYE INSTALLED AT THE EXHAUST 
PLANE OF THE ENGINE. '/ 

THE CCK3INED SECTION 0? A CONVERGENT WYE TC THE ATMOSPHSE 



3. 



4. 



5. 



1 . 

2 . 



3. 



/’ 



4. 



FOH^iAT (///' 
‘EMATr 

'’•n CM 



FOR? 
RETURN ' 
END 



ENTER EERO TO CONTINUE’) 

YOU DID NOT ENTER A CORRECT FITTING ID NUMBER.') 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



10 

20 

22 

30 



C 

c 

c 

c 

c 



40 

”50 

52 

60 



C 

C 

C 



62 

64 

^66 



im****m mm*mm*****m** ********* **m********* ***m ^**** *q 

SDiriNG^S U3ROaiINE:^^ USED^TO^ALTER^THE^DOCT^DATA^^LS^^^^^^^^^^ C 

WITH THIS PART OF THE PROGRAM lOU CAN CHANGE, DELETE, OF. ADD*A***C 
FITTING TO THE TATA FILE. IT i^CaiD 3E HANDY TO HAVE A COPY OF C 

IT WITH YOO WHEN YOU .'lAKE THE CHANGES. ALSO THE DATA FILE IS C 

IS PERMANENTLY CHANGED, TO SAVE A COPY, MAKE A COPY OF IT UNDER C 
A DIFFERENT FILE NAME. YOU STILL MUST HAVE A FILE NAMED "DUCT C 

DATA" TO EDIT. EACH DUCT DATA FILE IS SERIALIZED 3Y THE USER C 

AND A NEW SERIAL NUMBER CAN 3E ASSIGNED TO THE CHANGED FILE. C 

THE SERIAL NUMBER APPEARS OF THE COMPUTED OUTPUT FILE OF SYSTEM C 
PERFORMANCE. CHANGES ARE MADE 3Y THE INDEX NUMBER OF THE FITTINGC 
IN THE DUCT DATA FILS. THE INDEX NUMBER IS THE NUMBER IN THE 
FIRST COLUMN. 

THIS SUBROUTINE DOES NOT CHANGE THE SYSTEM CLASSIFICATION. 

TO GET A DIFFERENT SYSTEM YOU MUST 3UILD IT WITH THE BUILD 
PART OF THE PROGRAM. 

SUBROUTINE ED 
REAL A,WORKR 

INTEGER N, IN DEX,ANS, CHANGE, DELETE, ADD, L,M,S, YES, NO, WORK I, P, Z, 

♦ FITID 



'/ 



DIMENSION INDEX(200) , WORKR(200, 4) .WORKI (200,2) 

DATA CHANGE/* C */,DELc: TE/*D */, ADD/* A * /, Y ES/ ' Y*/,NO/» N», 

READ (8,600) S£RtAL,N 
DO 10 1=1. N 

READ ( 6 , 601 ) INDEX ]I) , WORKI, (1.1) , WORKI (1,2) ,WORKR(I, 1) , 

► WCRKR ( 1 , 2 ), WORKR (1,3) , WORKR(I, 4 ) 

CONTINUE 
REWIND 3 
WHITS (6,602) 

READ (5,603, ZND=22,EHR = 22) ANS 

IF ((ANS. EQ.CHANGE) .OR. (ANS. EQ. DELETE) .OR. (ANS. EQ. ADD) ) GO TO 30 
REWIND 5 
WRITE ( 6, 604) 

GO TO iO 

IF (ANS. EQ.CHANGE) GO TO 40 



I? ANS. SO. DELETE) GO TO 30 
IF (ANS. EQ. ADD) GO TO 150 

FITTING IS TO EE CHANGED, A 

WHAT INDEX NUMBER, M ??? 

WRITE (6.605) 

CALL READI (M, 5) 

DO YOU NEED A MENU ??? 



NEW FITTING SUBSTITUTED FOR THE OLD 



WRITE (6eO06) 

READ (5, o03,END=52,EaR=52) ANS 
CALL FRTCMS (*CIRSCRN M 

. EQ. YES) .OR. ( AN5.EQ.NO) ) GO 10 60 



( ( ANS 
REWIND - 
WRITS (6,604) 

GO TO 50 
CONTINUE 

IF (ANS. EQ. YES) GO TO 62 
WRITE (6.607) 

CALL HEADI (TYPE, 5) 

GO TO 64 

CALL THE MENU AND MAKE THE CHANGE 

CALL MENU (0 , 0 .TYP E, W ORK I (M , 1 ) )^ 

CALL SELECT(M, I.WORKI (M, 1) , TYPfe , WORKI, WORKR) 
ANY MORE CHANGES ??? 



WRITE (6,6 08) 

RE AD (5, 60 3, SND=6 3,ER R=6 8) 



ANS 



50 



nnooonnn 



non n n non 



68 

73 

30 



90 

100 



110 

120 



130 

132 

140 



IF ( (ANS. SO. YES) .OR. ( ANS.EQ,.^0) ) GO TO 70 
REWIND 5 



WRITE (6,604) 

GO TO 66 
CCNTINDS 

IF (ANS. SQ.YES) GO TO 



40 



GO TO 250 

A FITTING IS TO 2E DELETED 

WRITE (6.605) 

CALL READ I (N , 5) 

I? (M. EQ. N) g6 TC 120 

N = N- 1 

Z=0 

REWORK THE ID NUMBERS AND RELOAD THE FILE 
DO 110 I=M,N 

TEST=WORKI (1 + 1, 1) - WORKI (1,1) 

IF (TEST-GT. 1) Z=Z+ 1 

IF((TEST.EQ.l) .AND. (2.EQ.0)) GO TO 90 
iORKI(I. 1)=WOHKI(I + l, 1) 

GO TO l50 
CONTINUE 



WORKI 

WOEKR 



=WCRKI 



= WCRKR(I + 1, 1 



=WORKR 



=WCRKR(I+1,3 



=WOHKR 



1 + 1,2 



I +1, 2i 



1+1,4 



1.2 

1,1 

WORKR ,1,2) 

WOEKR I ,3) 

WORKR (I ,4 I 
CONTINUE 
CONTINUE 
WRITS (6,609) 

ANY MORE DELETIONS ?? ? 

WRITE (6.610) 

READ (5,003, END = 132,SRR=132) ANS 
IF ( (ANS. EQ. YES) .OR. ( ANS.EQ.NO) ) GO TO 140 
R-WIND 3 
3RXT2 (6.60U) 

GO TO 130 
CONTINOE 

IF (ANS. SQ. YSS) GO TO 80 
GO TO 250 

A FITTING IS TC BE ADDED 



150 WHITE (6, 



CALL RiA6l(M,5) 

FITID=WORKI (M, 1) +1 

S=N-M 

N=N+ 1 

P=M+1 

OPEN UP THE DATA FILE TO ADD THE NEW FITTING 



160 



170 

180 



WORKI { 


[N*1-I, 1] 


1 =WOR KI i 


;n-i,ii 


WORKI \ 


H*1-I,2 


\ =WORKI ( 


N-I,2 


WORKR i 


N+1-I,1 


) =WORKR 




WORKR 1 


N + 1-1 ,2 


\ =WORKR < 


N-I,2' 


WCRKR j 


N+1-I ,3 


1 =^WOS KR { 


N-I,3‘ 


WORKR i 


N + 1-I,4] 


) =WORKR ( 


N-I,4 



CONTINUE 

z=o 

REWORK THE ID NUMBERS 
DC 180 I=P,N 



TEST=WOkl (1,1) -WORKI (1-1,1) 

IF ((TEST.LT. 100) .AND. (Z-22-3)) ^0 TO 170 
Z=Z+ 1 



GO TO 180 
WORKI (I, 1)=WORKI (1,1) +1 
CONTINUE 

DO YOU NEED A MENU ??? 
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190 



192 
20 0 

'21 0 
220 

'230 

232 

240 

'250 

252 

260 



600 
60 1 
602 



603 

604 

605 

606 

607 

608 

609 

610 
61 1 
612 
613 



WRITE i6.6 06) 

READ i5,o03,ZND = 192,SRR=192) AN5 
CALL rRICrtS rCIRSCRN M 

IF ( (ANS. £0. lES) .OR. ( ANS.EQ.NO) ) GO TO 200 

REWIND 5 

WRITE (6.604) 

GO TO 1 90 
CONTINUE 

IF (ANS.EQ. YES) GO TO 210 
WRITE (6.607) 

CALL READI (TYPE, 5) 

GO TO 220 

GET THE NEW FITTING 

CALL MENU (0 . 0 . TYPE, F ITID)_ 

CALL SELECT (P, 1 ,FI TID .TYPE , HORKI , WORKR) 

DO YOU WANT TO ADD ANOTHER FITTING ??? 
WRITE (6,6 12) 

READ (5,603, END=232,ERR=232) ANS 
IF ((ANS.EQ. YES). OR. (ANS.EQ. NO) ) GO TO 240 
REWIND 5 
WRITE ( 6.604) 

GO TO 2 30 
CONTINUE 

IF (ANS. EQ. YES) GO TO 150 

DO YOU WANT TO MAKE ANY OTHER CHANGES ??? 
WRITE (6,613) 

READ (5, 603,END = 252,ERR = 252) ANS 
Jr ( (ANS. EQ. YES).Oa. (ANS.EQ. NO)) 

REWIND 5 
WRITE (6. 60 9) 

GO TO 2 50 
CONTINUE 

IF (ANS. SQ.YES) GO TO 20 

CALL SUMOUT (WORKI, WORKR, N) 

REWIND 8 
FORMAT (16 ,/,I3) 



GO TO 260 



FORMAT 13, 3X,I6,3X,I2,3X,F10.4, 3X.F10.4,3X,F10.4,3X.F10.4) 
FORMAT ’ DO YCU WANT TO CHANGE, DELETE, DR A ED (C/D/A)?V 

♦ ’ YOUR OLD FILE WILL BE PERMANENTLY CHANGED, DID Y 



FORMAT (A1 ) 
FORMAT 
FORMAT 
FORMAT 
FORMAT I 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
RETURN 
END 



COPY THE OLD FILE UNDER A NEW NAME 



OU’ / 

F YOU’ wanted TCV 



SAVE IT? IE NOT, ENTER TWO NULL STRINGS TO KILL THr 
PROGRAM. M 

YOU MCST ENTER A LETTER INDICATED IN THE BRACKETS.*) 
WHAT LINE DO YOU WANT TO EDIT?’) 

DO YOU NEED A MENU (Y/N)?M 

WHAT IS THE FITTING TYP^ NUMBER?’) 

WANT TO CHANGE ANOTHER FITTING (Y/N)?’) 

DELETION COMPLETE. ') 

WANT TO DELETE ANOTHER FITTING (Y/N)?’)^ 

AFTER WHAT LINE DO YOU WANT TO ADD ANCTHER FITTING?') 
WANT TO ADD ANOTHER FITTING (Y/N)?’) 

WANT TO MAKE ANY OTHER CHANGES (Y/N ?’) 
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onno on n n no n nnononoi 



C CC.'IPUTE SUBROUTINE; PRODUCES ? EH FOR.'I ANC E DATA CF SYSTEil 

THE DUCT DATA FILE IS HEAD AND THEN THE USER *1UST INPUT THE 
DESIRED OPERATING POINT. INPUT THE AMBIENT lEMPEHATURE 
(DlG^ZZS ?), THE AMBIENT PHESSUHS (PSIA), AND HUMIDITY (GRAINS), 
HCRSEPOWEfi, AND POWER TURBINE SPEED. OUTPUT IS THE ENGINE 
PERFORMANCE AND DUCT RESISTANCES. THE OUTPUT GOES TO YOUR DISK 
UNDER FILE OUTPUT DATA. 

SUEROUTINE COMP 



10 



REAL WCRKR .10. PO.HUMI D , HP , NPT , ACN3 , ACWM . ACWC. A EWB , 
♦ ADWM, ALFAC,ALFAC,RKOSTD, CMFD, CFMMAX.OPMAX.K 

INTEGER N. INDEX, WORKI , CLASS , 3RA NCH , F IT 1 ST, M , TEST , N 



ADNC, 

j t.L\ xi i^x, , NBRfOFF, SERIAL, 

, ANS Y^S NC 

DIHENSIOS Itl6EX(200) , HORKI (200,2) ,HORKa (200, «) ,FIT1ST(7) ,HBE(6) 
DATA YES/’ Y'/, NC/’ N V 
CALL RRTCMS (* CLRSCRN *) 

READ hLE SERIAL NUMBER AND HOM MANY FITTINGS ARE IN THE FILS 
READ (8. 600) SERIAL, N 

READ INDEX, ID NUMBER , FI TTING TYPE, AND FOUR ELEMENTS OF DATA 

7 TT'T' 



FOR EACH FITT 
DO 10 1=1 , N 



READ (§,601) INDEX (I) ,WORKI(I. 1) 'WORKICI,!) , WORKS (1,1) 
w6eKR {1,2), WORKS (i,§) ,f^ORKR (1,4) 

CC NTINUS 
REWIND 3 

FIND OUT WHAT CLASS SYSTEM IS IN THE DUCT DATA FILE 
CLASS = WORKI (1 , 11/1000 00 

SET UP FOR THi: CORRECT NUMBER OF BRANCHES FOR THE SYSTEM 
IF (CLASS. EQ. 1) BRANCH =4 
IF CLASS. EQ. 2) BRANCH =5 



IF CLASS. EQ. 3) 
IF (CLASS. EQ. 4) 
IF CLASS. EQ. 5) 
IF CLASS. EQ. 6) 
IF (CLASS. £Q. 1 



20 



30 



40 

50 



60 

70 

80 



cRANCH=6 
BRANCH =5 
ERANCH=5 
BRANCH =4 
GO TO 30 

SEARCH FOR 'wye AREAS. MOST BE KNOWN FOR MATCHING. SEARCH IS 
DONE BY LOOKING FOR IHE '’WYE'* FITTING TYPES, 13,14,15,16. 

DO 70 1=1, N 



EQ. 


1 3) 


GO 


TO 


30 


EQ- 


1 4) 


GO 


TO 


40 


EQ. 


^ 5) 


GO 


TO 


50 


EQ. 


1 6 


GO 


TO 


60 



IF WORKI I, 2 
IF (WORKI (1^2) 

GO TO 7 0 
ADWC = WORKE (1,1) 

ADWB=WOHKE 1,2$ 

ALFAD = WOEKR (1,3) 

GO TD 7 0 
ADWM=WO RKR (1,1) 

GO TO 70 
ACWC=WCRKR (1,1) 

ACWB=W0RKRJI,2) 

ALFAC = WORKR (1,3) 

GO TO 7 0 
ACWM=WORKR (1,1) 

CCNTINUS 

CONTINUE 

M=2 

THE INDEX NUMBER OF THE FIRST FITTING OF THE BRANCH MUST BE KNOWN. 
IT IS USED IN TEE DO LOOPS OF THE SYSTEM ANALYSIS TO FIND BRANCH 
PPESSURE DROPS. NEXT LOOP SEARCHES FOR THESE INDEXES. LOOP WILL 
FIND IHE INDEX WHEN ID NUMBERS DIFFER BY MORE THAN ONE. 

FITIST (1) = 1 
DO 90 1=1. N 

TEST= WORKI (I’M, 1) - WORKI (1,1) 

IF (TEST.SQ. 1) GO TO 90 
FITIST (M) =INDEX (1+1) 

M= M + 1 
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nnonooi 



90 

C 

C 



C 



95 



93 

100 



150 



200 



250 



300 



350 

400 

C 

410 



420 



430 

600 
60 1 
602 

603 

604 



CCNTINU2 

GST THE OPEEATING CONDITIONS AND POWER REQ [J IR EMEN IS . 

CALL O?TOND(T0 ,P0,Ha.'lID) 

IF A FAN IS INSIALLZD G^T FAN CHAR AC TER ISTI CS 

IF (CLASS, GT, 4) GO TO 98 

CALL FAN ( EHOSTDrCFHO ,CFMHAX,DPHAX,K) 

CALL PWSPT (HP ,NPT,T0 .PO) 

GO TO THE SYSTzH S05HOUTINE TAILORED FOR THE SYSTEM 
GO TO (100 .150 ,200^25 0-300, 350) -CLASS 

CALL SYS1 (SERIAL, N,WOHKI-WORKR^HP,N?T,FITlST, TO, PO, HUMID, 



GO TO 400 

CALL SYS 2 (SEEIAL-N-HORKI - WORKR, HP, NPT, FITI S T ,T0 , FO, HOMID, 

+ ALFAr-ADWB- ADWC, ADWM, 

> RHOSTD,CFM0 ,CFMMAX,D?MAX,K) 

GO TO 40 0 

CALL SYS 3 (SERIAL-N,WORKI, WORKR,HP,NPT,FIT1ST,T0,?0, HOMID, 

+ ALFAC,ADWB. ADWC, ADW M, ALFAC , AC WB, ACWC, ACWM , 

♦ RHOSTD,CF30 , CF MMA X, DP MAX , K) 

GO TO 400 

CALL SYS 4 (SERIAL,N,FORKI,HORKR,H?,NPT,FIT1ST,TO, ?0, HUMIC, 

+ ALFAC-ACW3- ACWC- ACWM- 

♦ RHOSTfi,CFMO , CF 3MAX, DP MAX , K) 

GO TO 400 

CALL SYS 5 (SERIAI,N,HORKI,RORKE,H?,N?T,FIT1ST,TO, PO, HUMID, 

♦ ALFAI,ADWB, ADWC, ADWM, ALFAC,ACWB, ACWC,ACWM) 

GO TO 400 

CALL SYS 6 (SERIAL - N- WO RKI - WORK R, HP , NP T, F IT1 S T ,*T 0 , P 0, HUMID, 

+ ALFAC,ACWB, ACWC, ACUM) 

CONTINUE 

DO YOU WANT TO COMPUTE WITH DIFFERENT OPERATING CONDITIONS ??? 



WRITE (6.602) 

READ (5,(503, kND=420,ERE = 420) ANS 
IF ( (ANS. EQ- YES).oa. (ANS.EQ.NO) ) GO TO 430 
rewind 5 



J 6 j 60 ,) 

, _j Y 

^XV) 



WHITE 
GO TO 
CONTINUE 

IF (ANS. SQ. YES) GO TO 95 
FORMAT (16 ,/, 13) 

F0RMAT(I3, 3X,I6-3X,I2 ,3X,?10.4,3X-F10,4,3X-F10.4,3X,F10.4) 
FOEMAT(’ DO YOU WANT TO COMPUTE WITH DIFFERENT OPERATING 
+ NS 

FOEMA'T 
FOEMAT 
RETURN 
END 



CONDITIO 



YOU MUST ENTEE A LETTER INDICATED IN THE BRACKETS.’) 
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C** * ♦ 

5 

7 

10 



20 

30 

40 



42 

50 



60 

70 

600 

601 

602 

603 

604 

605 

606 



INSTHUCriOMS SUBROUTINE; LONG OH SHORT, CRT OR TYREWRITER 

■¥* mm *^* ******* ************************************** m^^n 

THIS SUBROUTINE IS CALLED IN THE BUILD SUBROUTINE. IT DOES NO: 
CCHPUTE ANYTHING. IT IS AN ADHINI3TR ATIYS PART CF THE PHOGfiAN 
TO SEE IP THE USER RANTS LONG OR SHORT INS T R UCTIO NS , AND IP 
THE USER IS USING A CRT lERJINAL OH TYPEWRITER TEFhInAL. 
TYPEWRITER TERMINALS DO NOT GET THE HENUS OVER AND OVER. 

SUBROUTINE INST (SORL, TERM) 

INTEGER SORL .TERM. ANS, LONG. SHORT, CRT, TYPE 
DATA LONG. SHORT, CRT, TYPE/ *L* , *S*,'C*,*TV 
WRITE (6, 60 0) 

HEAD 5,60 1, ENL=7, ERR = 7) ANS 

IF ((ANS.EQ. LONG) .OR. (ANS.EQ. SHORT) ) GO TO 10 
REWIND 5 
WRITE (6,602) 

GO TO 5 

IF (ANS.EQ. SHORT)GO TO 20 
SCRL= 1 

WRITE (6.603) 

GO TO 3 0 
SORL=0 
CONTINUE 
WRITE (6, 604) 

READ 5,601,ENE=42,ERR=42) ANS 
IF ((ANS. EQ. CRT) .OR. (ANS. EQ. TYPE) ) GO TO 50 
REWIND 5 
WRITS (6 .602) 

GO TO 4 0 

IF (ANS. Eg. CRT) GO TO 60 



WRITE (6 .605) 
GO TO 70 



TERM= 1 
WRITE (6, 606) 

CONTINUE 

rOFMATC DO YOU WANT LONG OR SHORT INSTRUCTIONS 



FORMAT (A 1 ) 
FORMAT (’ 
FOBMAlj* 
FORMAT?’ 
FORMAT (* 
FORMAT?* 
RETURN 
END 



(L/S) ?•) 



YOU MOST ENTER THE LETTER INCICATED IN THE BRACKETS.*) 
YOU HAVE SELECTED THE LONG IN STR UC TION S . * ) 

ARE YOU WORKING ON A CRT OR TYPEWRITER TErMINAL (C/T)?*) 
YOU ARE WORKING ON A TYPEWRITER TERMINAL.*) 

YOU ARE WORKING ON A CRT TERMINAL.*) 
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5 

7 

'lO 

12 

15 

"20 

22 

^25 



SYSTEM SUBRODTINE: DETERMINES WHICH SYSTEM, 1 , 2 , 3 , 4 , 5 , 0 P. 6 
*m* ******************************* **^* *************** * 

CALLED 3Y THE 50ILD SUBROUTINE. USED TO SET UP THE PROGRAM FOR C 
THE VARIATIONS IN DUCT SYSTEMS AVAILABLE. THE EDITING S'JBROUTINEC 
CAN NOT CHANGE THE SYSTEM TYPE. ONCE SET UP HERS ANOTHER RUN OF C 
THE BUILD SU3 RO OTINE ^ IS ^ REQ UI RE D ^TO^GET^A^ DIFFERS NT ^SY STEM C 

SUBROUTINE S Y S TEM ( SO 8 L , CLAS S) 

INTEGER- SO fiL, Cl AS S , A N S 1 , ANS 2 - AN S3 , YES, NO, SHORT 
DATA YES/* YV. NO/* N* /, SHORT/5/ 

IF (SORL. EQ.SHORT) GO TO 30 

DOES THE COOLING AIR BRANCH OFF THE MAIN INLET ??? 

WRITE (6- 600) 

READ (5,6 01 ,feND = 7, ERR= 7) ANS 1 
IF ((ANSI. Eg. YES) .OR. (ANSI. EQ. NO) ) GO TO 10 
REWIND 3 
WRITS (6,602) 

GO TO 5 

DOES THE COOLING AIR JOIN THE MAIN EXHAUST ??? 

WRITE]6 - 6031 

READ (5,0 0 1 ,END = 12, ER8 = 12) ANS2 
IF ((ANS2. SQ. YES) .OR. (ANS2. EQ. NO) ) GO TO 15 
WRITE (6.602) 

GO TO l5 

IF (ANS2. EQ. YES) GO TO 20 
ANS3= YES 
GO TO 2 5 

IS THERE A COOLING FAN INSTALLED ??? 

HR ITS (6, 604) 

READ (5,601 ,SND=22, ERR=22) ANS3 
IF ( (ANS3. Eg. YES) .OR. ( ANS3. EQ. NO) ) GO TO 25 
REWIND 5 
WRITE (6,602) 

GO TO 20 

SYSTEM CLASSIFICATION DEPENDS ON THE CONFIGURATION OF THE SYSTEM 
AND IF A COOLING FAN IS INSTALLED. CON f IG UE ATION MEANS HOW THE 
DUCT ARE JOINED TOGETHER IN THE SYSTEM. 



, CLASS=1 
CLASS=2 

.AND. (ANS3. SO. YES)) CLASS=3 
.AND. (ANS3. EC. YES ) CLASS = 4 
.AND. ANS3.SQ.no ))CLASS=5 



30 



40 

600 

60 1 
602 

603 

604 

605 

606 



IF ( (ANSI . EQ. NO ).AND. (ANS2.EQ.NO 
IF ANSI . EQ. YES' .AND. (ANS2. SQ. NO 
IF I (ANSI . EC. YES I .AND. (ANS2. EQ. YES 
IF / (ANSI . EQ. NO ).AND. (ANS2.EQ.YES 

IF l' (ANSI . SQ. YES) .AND. i!ANS2. SQ. YES, , _ 

IF ((ANSI . EC. NO ) .AND. (ANS2. EQ. YES) .AND. (ANS3.EQ. NO ))CLASS = 6 
GO TO 40 

SHORT INS TRUCTIONS. .. JUST ENTER THE SYSTEM CLASSIFICATION NUMBER 
WRITE (6, 605) 

CALL HEADI rCLASS-5) 

IF ( (CLASS. GT. 0) .AND. (CLASS. LT. 7) ) GO TO 43 
-RITE (6,606) 

GO TO 3 5 
CONTINUE 

FORMAT(* DDES THE MODULE COOLING AIR BRANCH OFF THE MAIN INLET? 



FORMAT ’ 
FORMAT * 

+ ? (Y,N)*) 

FORMAT {’ 
FORMAT (• 
FORMAT(* 
RETURN 
END 



YOU MOST ENTER A LETTER IN THE BRACKETS.*) 
DOES THE MODULE COOLING AIR JOIN THE MAIN ENG 



IS THERE A COOLING FAN INSTALLED?*} 

ENTER THE SYSTEM CLASSIFICATION: 1, 2, 3, 

YOU MOST ENTER A 1, 2, 3, 4, 5, OR 6*) 



ENGINE EXHAUST 



4, 5, OR 6*) 
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*** mm t 

C 'lENU 3U3ROaTINE: 

Qmmrn m mmmmmm mmm mm mm m t 



PRINTS .lENU AND FINDS OUT ;?HICH FITTING TO USE 

I mmmmm mmmmmm mi 



C 

c 
c 
c 

Qmm m i 



10 

20 

600 



601 



CALLED 3Y BUILD AND EDIT SUBROUTINES. C 

CHANGIN3 THE NUMBER OF FITTINGS REOUIEES CHANGING TEE MENU. C 

JUST REVISE THE FORMAT STATEMENTS, NATCH THAT IT DOES NCT C 

OVERFLOW THE SCREEN. C 

t m m mmmm mmm mmmm m mmmmmmmm mmmmmmmmmm mm mmm mmm mmmm m mmmm mmmmmm mmmmm mmmmm mQ 

SUBROUTINE ME N U (M , TER M, T YPE , FIT ID) 

INTEGER FITID, fl,TEEM, TYPE, CRT ,I YP WP.T 
DATA TYPWRT/0/ 

IF USER IS ON A TYPEWRITER TERMINAL, THE MENU IS PRINTED ONLY ONCE 
IF ( (M.GT. 0) . AND. (TERM .EQ. TYPWHT) ) GO TO 10 
WRlis (6,600) 

WRITE 6,601 
WRITE 6, 602i 
WRITE (6, 603 
WRITE 6, 604 'i 
WRITE 6f 605 FITID 
CAIL READI (TYP£,5) 

GO TO 20 
WRITE (6.606) 

CALL READI (TYPE, 5) 

CCNTINUS 

CAIL FRICM S ( * C LRSCRN *) 

FORMAT 1 * 00 NO MORS FITTINGS THIS BRANCH', 6X, *♦ 14 DI7ERGI 

♦NG WYE, MAIN SECTION '/* 01 INTAKE SHAFT, RECT SECTION, SIDE * 

♦ 15 CONVERGENT WYE, BRANCH SECTION '/* ORIFACES, WITH(OUT) LO’ 

♦UVERS ♦ 16 CONVERGENT WYE, MAIN SECTION »/’• 02 STRAIGHT DUCT', 

♦21X,'* 17 DIFFUSER, CONICAL ROUND SECTION'/' 03 ELBOW, SMOOTH RAD 
♦lUS ROUND', ax, '♦ 18 DIFFUSER, PLANE, IN-LINE'/' 04 ELBOW; 90 DEG: 

♦ 3,4,5 PCS; ROUND ♦ 19 DIFFUSER PYRAMIDAL, IN-LINE '/' 05 SLb6 
♦H, MITERED, ROUND, HSW/0 VANES* 20 DIFFUSER, TRANSITIONAL (ROUND T 

♦ 0 V 

06 ELBOW, MITERED, RECTANGULAR ♦ RECT OR RECT TO RO 

♦ UND) ' ) 

FGRMATC 07 ELBOW, SMOOTH RADIUS, RECTANGULAR ♦ 21 CONTRACTION RO 
♦UND'/' 08 ELBOW, SMOOTH RADIUS, WITH * 22 CCNTRACTICN RECT 

♦ANGULAR'/' SPLITTERS, RECTANGULAR ♦ 23 OBSTRUCTION, 

♦SCREEN IN DUCT'/' 09 ELBOW, MITERED WITH VANES, RECT * 24 L0U7E 

♦ R ENTRANCE') 

10 ELBOW, CONVERGING OR DIVERGING * 25 FILTER'/ 



602 FORMATC 



FLOW, RECTANGULAR' ,14X,' ♦ 26 MULTI-BAFFLE SILENCER'/ 



603 



b04 

605 
bO 6 



MODULE ') 



♦ ' 11 ELBOWS,'90 

FORMATC 12 ELBOWS, 90 DEG, Ifl DIFFERENT * 28 WASTfe HEAT BOI 

♦LER'/' PLANES, RECTANGULAR ',11X,'* 29 EXIT ABRUPT'^ 



DEG, Z-SHAPED, RECT * 27 GT ? 
5WS. 90 DEG- IN DIFFERENT * 



♦' 13 DIVERGING WYE, BRANCH SECTION 



FORMAT (' 

^mmmm t \ 

FORMA X (' 
FORMAT {' 
RETURN 
END 



/ 



1 ur.A n jc.x.xi.ui'i * 30 FITTING NOT Li ST E D ' ) 

TWO DIGIT NUMBER, PRESS ENTER******* 



» YOU ARE WORKING ON PITTING NUMBER >> 
ENTER THE FITTING TYPE NUMBER FROM THE MENU. 
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******** *********** ********************** ********^i***:^****7tiitu^m* 

SEXECr SUBfiOaTIME; EHANCHES TO FITTING SELECTED IN 3ENU 

************************•*•••*••••»•***»**»**»*•*♦♦***•••*•****•••*•** 

CALLED BY BUILD AND EDIT SUBROUTINES 

THIS SOBHCUTINE CALLS LOAD A SUBBOUTINE THAT TRANSFERS THE 
DATA OF A FITTING TO THE SYSTSH STORAGE ARRAYS '^OF.KI AND HORKR 

m* ******************************************************************* * 

SUBROUTINE SELECT (M, SORL, GEO TYPE , KORKI, WORKR) 

REAL WORKR,WKR 

INTEGER WKI, WORRIES CR I, G EON. TYPE 

DIMENSION WORKI (200, 2 ) >'ORKR ( 20 0 , 4) , WKI (2) , WKE (3) 

CHANGING THE NOdBER OF FITTINGS aEQUIRES A CHANGE TC THE FOLLOWING 
GO TO STATEMENT AND THE ADDITION OF A CALL TO THE SUBROUTINE 
THAT HANDL 
GO TO (1,2 

1 CALL FIT01 

CALI LOAD 
GO TO 40 

2 CALL FIT02 (SORI, GEOrt , WK I, W KR) 

CALL LOAD (M , G ECM , WKI , WKR , WO RKI , NORKH) 

GO TO 40 

3 CALL FIT03 (SO EI-GEOM , HKI , WKR) 

CALL LOAD (M,GEC!l, WKI , WKR, WORKI , WORK R) 

GO TO 40 

4 CALL FIT04 (SO RI,GEOM , WKI, WKR) 

CALL LOAD (tt,GEOM,WKX , WK2 , WORKI , WORKR) 

GO TO' 40 

5 CALL FIT05 {SOEL,GEOM , WKI, WKR) 

CALI LOAD (I1,GECM, WKI ,WKfi, WORKI, WORKfi) 

GO TO 40 

6 CALL FIT06 (SORI,GEOM , WKI, WKR) 

CALL LOAD (M , G ECft , WKI , WKR , WORKI , WO SKE) 

GO TO 40 

7 CALL FIT07 (SO EL,G £OM , MKX , WKR) 

CALL LOAD (d,GECM, WKI , WKR, WORKI , WORK R) 

GO TO 40 

8 CALL FIT08 (SOEI,GEOrt , WKI, WKR) 

CALL LOAD (M , G ECM, WKI , WKR, WORKI , WORKR) 

GO TO 40 

9 CALL FIT09 (SOEI,G ECM , WKI , WKR) 

CALL LOAD (M, GECM, WKI ,WKR, WORKI, WOEKR) 

GO TO 40 

10 CALL FIT10 (SOEI.GEOM ,WKI, WKE) 

CAIL LOAD (ri,GECS, WKI , WKR, WORKI, WORKE) 

GO TO 40 

11 CAIL FIT11 (SORl,GEOM ,WKI, WKR) 

CALL LOAD (M,GECM, WKI , WKR, WORKI , WORK R) 

GO TO 40 

12 CALL FIT12 (SORL,GEOM , WKI, WKR) 

CALL LOAD (M , GEOrt, WKI , WKR , WORKI , WORKR) 

GO TO 40 

13 CALL FIT13 ( SO RL, GZOrt , HKI, WKR) 

CALL LOAD (H , G EC M, WKI , WKE , WORKI , W ORK E) 

GO TO 40 

14 CAIL FIT14 (SORI.GEOM,WKI,WKH) 

CAIL LOAD (M, GEC&, WKI ,HKR, WORKI, WOEKR) 

GO TO 40 

15 CALL FIT15 (SO BI,GEOM , WKI , WKR) 

CALI LOAD (M,GEC&,WKI , WKR, WORKI , WORK B) 

GO TO 40 

16 CALI FIT16 (SO£I,GEOM,WKI, WKB) 

CALL LOAD (W , G EOM , WKI , WKR , WORKI , WORKE) 

GO TO 40 

17 CALL FIT17 (SO BL, GEOM , WKI , WKR) 

CAIL LOAD (M,GECM, WKI , WKR , WORKI, WORKR) 

GO TO 40 

18 CAIL FII18 (SORL-GEOM ,WKI, WKR) 

CALL LOAD (M , G ECM, WKI , WKR , WORKI , WO RKR) 



ES THE NEW FITTING. 

{SORL.GEOM , WKI, WKR) 

(M,GEC5i, WKI , WKR, WORKI, WORKR) 
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19 

20 
21 
22 

23 

24 



25 



26 

27 

28 

29 

30 
C 

40 



GO TO 40 
CALL FIT19 
CAIL LOAD 
GO TO 40 
CALL FIT20 
CALX LOAD 
GO TO 40 
CAIL FIT21 
CAIL LOAD 
GO TO 40 
CAIL FIT22 
CAIL LOAD 
GO TO 40 
CAIL FIT23 
CALL LOAD 
GO TO 40 
CALL FIT24 
CAIL LOAD 
GO TO 40 
CAIL FIT25 
CAIL LOAD 
GO TO 40 
CAIL FIT26 
CAIL LOAD 
GO TO 40 
CAIL FIT27 
CAIL LOAD 
<SO TO 40 
CJilL FIT28 
CAIL LOAD 
GO TO 40 
CAIL FIT29 
CAIL LOAD 
GO TO 40 
CAIL FIT 3 0 
CALL LOAD 
A NEW FITT 
CCNTINOE 
FETQRN 



f SORI.GEOM ^ WKR) 

(ri,G£Ca/WKI ^WKfi, WCHXI, WORKR) 

(SOFI.GEOM,WKI,WKR) 

(M^GZCfi^ WKI ^ WKR^WORKI ^WORKH) 

(SORI.GEOM HKR) 

(!1,GZCS, WKI , WKR/WORKI^WORKR) 

(SORI.GECM ^ WKI, WKR) 

(i%GEO&^ WKI ^WKR^WORKI /WCRKfi) 

(SORI-GEOJ1 ^WKI, WKR) 

(a^GECfl^ WKI ^WKR, WORKI, WORKR) 

(S0RI-G£0.*1 ,WKI, WKR) 

(M ^GECJl^ WKI ^ WKR^WOakl ^WORKE) 

(SOPI-GEC.1 ^ WKI, WKR) 

[A , G ECfl, WKI ^ WKR^ WOdKI , WOEKE) 

(SOHI^GEOrt ,WKI, WKR) 

(fl ,GECM^ WKI , WKR, WORKI ^WORKH) 

(SORI,GEOW , WKI, WKR) 

(ll, GECM, WKI ,WKR, W OBfCI , WORKH) 

(SOSI-GEOM , WKI, WKR) 

(i , G EC Fl , WKI , W K a , Wo R kl , W 0 R K R) 

{SOHI,GEOM , WKI, WKR) 

(M,GECn,WKI , WKR, WORki, WORK H) 

(SOPI,GEOM ,MKI, WKR) 

(M ,GECM,WKI ,HKH, WORKI, WORKR) 

ING WOULD REQUIRE ANOTHER CALL STATEMENT HERE 
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I mm* mm** i 



VERT. INTAKE 5HAFT^ SIDE ORIFACES, WITH (OUT) LOUVERS 



10 

15 



17 



18 



20 

30 



: **mm**Q 

IDEL'CHIK, PAGE 103 C 
”A”, THE PROPER VALUEC 
AEOUT CONFIGURATION. 
FITTING IS FOR 



C FITTING 01; 

REF- HANDBOOK CF HYDRAULIC RESISTANCE, I.E. 

THE TABULATED VALUES ARE LISTED IN AN ARRAY 
IS EXTRACTED BY ANSWERING CERTAIN QUESTIONS 
THE REFERENCE AREA IS THE SHAFT AREA. THIS 

DYNAMIC RESISTANCE, THE DUCT CONNECTED TO IT SHOULD START JUST 
EEIOW THE ♦**♦♦♦* 

SUBROUTINE F I T 0 1 ( SOR L ^GEOM , WKI , WKR) 

HEAL W KR A AREA 

INTEGER fi,M,ANSl,ANS2 - YES, NO.GEOM , SO RL, WKI,OFP,ADJ 

nTMtrucmxi r i a vd f h\ ^ f O 



p)^6?^,adj/» av 



GO TO 2 



DIMENSION WKI(2),«KR 
DATA YES/« Y* //NO/* N* 

HOW MANY ORIrACES ??? 

WRITE (6. 600) 

CALL READI(N,5) 

IF ( (N.LT. 1) . OR. (N.GT. 4) ) 

IF (N. NE. 2) GO TO 10 
IF TWO, OPPOSITE OR ADJACENT ??? 

WRITEib^ 602) 

READ (b,50 3,END=7,ERR=7) ANSI 
IF (^ANSI.E^.OPP) .OR. (ANS1.EQ. ADJ) ) GO TO 10 

write (6 ,604) 

GO TO 5 

ARE THERE LOUVERS INSTALLED ??? 

WRITE (6,601) 

CALL READR (ARE A,5) 

WRITS (6, 605) 

READ (5,603, SND=17, ERR =17) ANS2 

IF ( (ANS2. EQ. YES) .OR. ( ANS2. EQ. NO) ) GO TO 18 



REUIND 
WRITE (6 ,604) 
GO TO 15 



IF ( (N.EQ. 2) . AND. (ANSI . EQ.OP?) ) 
IF ((N.EQ.2) . AND. (ANSI . EQ. AD J 
IF(N.EQ.3) N = 4 
N.EQ.4) N = 5 
ANS2. EQ. YES) 



N=2 
N = 3 



2Q.YES) GO TO 20 



IF 
IF 
M = 

GO TO 30 
«=2 

CONTINUE 

DATA FROM IDEL’CHIK’S 
[ 1 , 1 )= 12. 6 
1, 2 =3. 6 
1,3 = 4.2 
^ 1,4) =1. 8 
1,5)=1. 2 
M=1 7. 5 



HANDBOOK 



=3.2 
. .,5 =2.5 

EMER data INTO TRANSFER ARRAYS WKI,WKR 
WKI (1) =GEOM 
WKI /2} = 1 
■ ;i) =AR£A 

M=0.0 



600 FORMAT (* YOU HAVE SELECTED A VERTICAL INTAKE SHAFT OF 



601 






♦ MBER 
FORMAT(’ 



RECTANGULAR SECTION WITH SIDE ORIrACES AT THE TOP. V 
• IT MAY OR MAY NOT HAVE LOUVERS OVER THE ORIFACES-V 
’ FILTERS ARE A SEPARATE FITT ING . V/ * *FI RST, ENTER THE NU 
CF ORIFACFS. (1,2,3,OR 4}***n 
ENTER THE CROSS SECTI 



nONAL AREA OF THE VERTICAL SHAFT.*) 
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noon 



602 

603 

604 

605 



FOF«AT(* SINCE THERE ARE TO 
♦05ITE OR ADJACENT (0/A)?*) 
FOfii'lAT{A1) 

FORMAT » TOO MOST ENTER A LE 

FORMAT?' LAST QUESTION, ARE 



► N), *) 

R^TORN 



END 



BE TWO ORIFACES, ARE THE ORIFACES OP? 

TIER IN THE BRACKETS.*) 

LOUVERS MOUNTED ON THE ORIFACES? (Y/ 
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it*** 



i^m***m**m m* ** ti****^* ************* it*'* ***^ ****** 

FITTING 02: STPAIGKT DUCT, ROUND OR RECTANGULAR C 

NO RErSaENCE, ONLY THE DOCT 3E0.1ETRY IS INPOT HERE. LATER ON IN C 
THE COaPUTS PART OF THE PROGRA.1 A COEFFICSNT BASED ON F*L/D .JILL C 
35 DEVELOPED TO DETERaiNE THE RESISTANCE OF THE DUCT. ? TS THE C 
FRICTION FACTOR. SEE FITD? FOR THE CORRELATICN USED. C 

****** ***»«*********»*»*«***X**»****»»***«****«»»*****«»*»***«*»*«(^ 

SUBROUTINE FIT02 (SOR L, GEOa , NKI , JKH) 

REAL A,B,L,D,-IKR 

INTEGER SORL,G ECM,VKI , ANSI , CIR, REC, 3 HORT 
DIHEHSIDN SKI (2),NKR (4) 

DATA CIR/' C /, HEC/’R' /»SHORT/0/ 



uti ^ a V. f t •* / f tv V// 

IS DUCT CIRCULAR OR RECTANGULAR 
WRITE (6, 600) 

READ (5,o0 1 ,END=6,ERH=6) ANSI 
IF ( (ANSI . EQ. CIR) .OR. ( ANS 1. EQ. 



^.EWIND 
WRITS (6 ,608) 

GO TO 5 

IF (ANSI. £Q. CIR) GO TO 30 
IF ISORL. EQ. SHORT) GO TO 10 
WRITE (6,602) 

CAIL *n£ADRjA,5) 



EQ. HEC) ) GO TO 7 



10 



20 



30 



40 



50 

100 



CALL READR(B,5) 

WRITE (6* 604) 

'CALL 3EADR(L,5) 

GO TO 20 
WRITE (6, 605) 

CALL ^ADH(A,5) 

CALL READR B,5) 

CALL FEADE(L,5) 

CONTINUE 
AR£A= A^3 

SINCE THE DUCT IS RECTANGULAR, THE EQUIVALENT CIRCULAR DIAHETER 
IS REQUIRED. THIS IS FRON THE ASHRAE HANDBOOK, CHAPTER 33, DUCTS 
D= 1. 3*((A*B) **0.625) / (A+B) ♦♦0.250 
R=L/D 
GO TO 10 0 

IF (SOEL. EC.O) GC TO 40 
WRITE (6, 6(}6) 

CALL READR (D, 5) 

WRITE (6, 604) 

CAIL ^EADR(L,5) 

GO TO 50 
WHITE (6,607) 

CALL nEADR(b, 



CALL READR L 
AREA=3. 1 4 * (D 



WKI 

WKIl 

WKE 

WKR 

WKE 

WKR 



600 FOHHA 






= j E 0 H 
=2 
=AREA 
=D 
= l 

=AREA 
(• YOU 



601 

602 

603 

604 
o05 



606 



>T ANGULAR. ’ /' ♦♦♦♦FIRST 
♦ R (C/E) ?’) 

FORMAT(AI) 



/4.0) 



HAVE SELECTED STRAIGHT DUCT. 



QUESTION, IS THE DUCT 



IT HAY BE ROUND OR R 
CIRCULAR OR RECTANGU 



ENTER FIRST C RCSS-S ECTIO N A L D IH 



FORMAT (* THE DUCT IS RECTANGULAR, 

♦ ENSIGN. (FEET)*) 

FORMAT(* SECOND DIMENSION fFEET)_*) 

FORMAT'* ENTER THE LENGTH OF THIS DUCT SECTION 
FORMAT * ENTER THE RECTANGUAH DUCT DIMENSIONS. 

♦ * FORMAT: FIRST DIMENSION SAMPLE: 10 

♦ * SECOND DIMENSION 3.35' */ 

♦* LENGTH 18.5*) 

FORMAT(* THE LOOT IS CIRCULAR, ENTER THE DIAMETER 



(FEET) * 
^ (FEET) » 



(FEET) *) 
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607 FOEMAir ENTER THE DIMENSIONS (FEET) OF THE CIRCULAR DUG 

FORMAT: DIAMETER SAMPLE: 5.65 V 

+ • LENGTH 20M 

608 FORMAT(» YOU MOST ENTER A LETTER IN THE BRACKETS.*) 
RETURN 

END 
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****************** ^*^* ************ m 

FITTING 03: ELEOW, S.MOOTH PADIUS. ROUND CRO SS- SECTION 

REF. ASHRAE HANDBOOK, PAGE 33.33, TABLE 3-3, FITTING 3-1 
CURVE FIT TO TEE TABULATED DATA 

SHORT FITTING, FRICTION LOSSES NOT INCLUDED, CONNECTING DUCTS 
TO THE CENTER OF THIS FITTING- 

**!^i^*:^**m* ****************************************************** ****^ ^ 



600 

60 1 
602 



SUEROUTINE FIT03 (SCRL , GECH, WKI, WKR) 

REAL R,D, THETA ,KTHETA ,C, ARSa,C?RIHE, WKR 
INTEGER GEOrt, SCRI. 7?KI 
DI.1ENSION WKI (2),&KR (4) 



WRITE (6. 600) 
CALL READRiD, 
- ' —h 



5) 

5) 



WRITE (6, 60 T) 

CALL EEADRjR, 

WRITE (6, 602) 

CALL READR (THETA, 5) 

AREA=0.7854*D**2 
XIHSTA=0. 0 306 ♦THETA** 0.7925 

CPRIHE=0. 0 29 46*£XP (2. 562 7* ( 1 . 57 1 3 8- ( R/D) )) ^0. 1174 6 
C=KTHETA*C?HIHE 
)=GE0H 
I =3 

= AREA 

= 0.0 

L=AREA 

(V YOU HAVE SELECTED A SMOOTH RADIUS ROUND C HOSS-SEC TION V 
ELBOW. **FIRST QUESTION, WHAT IS THE C ROSS-5 ECT I CN DIAMETER 

OF THE SLBCW MEASURED TO’/ 




+ • THE 
FOBMAT( 
♦ EES) ’ ) 
RETURN 
END 



(FEET) **’ )_ 

FORMAT(y ENTER THE RADIUS OF THE TURN 



:enterline of the 

LAST QUESTION, 



DUCT.’ 

ENTER 



^H£ 



ANGLE OF THE ELBOW TURN. (DEGfi 
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mm* m ******************* ^ 

C FITTING 04: EL2CW, SEG.'IENTSO HOUND CEOSS-SEC tICN , 90 DEGREE 



C REr- ASHEAE HANDBOOK. PAGE 33. 33, TABLE 3-3, FITTING 3-2 

C CURVE FIT TO THE TABULATED DATA FOR EACH NUMBER OF SEGMENTS. 

C THIS IS A SHORT FITTING, FRICTION LOSSES NOT INCLUDED, MEASURE 

C CONNECTING DUCTS TO THE CENTER OF THIS FITTING. 

SUBROUTINE FIT04 (SORL , GZOM , WKI, WKE) 

REAL D,R,WKR 

INTEGER SORL,GECK.NKI.N,M 
DIMENSION WKI (2) ,5kR (4) 

WRITE (6. 600) 

CALL kEAdR (N . 5) 

I? ( (N.LT. 3) . OR. (N. GT. 5) ) GO TO 5 

write (6, 60 ^ 

CALL ^EADE{b,5) 

WRITE (6. 602) 

CALL EEADE(R.5) 

AR£A=0.7854*6**2 

go‘to no, 20 , 3 0 ). m 

C=a. 4 022*EXP (3. 9394* ( 0.0 0282- H/D) ) ^0.3 2 829 
GO TO 40 

C= 1. 8 423* EX? (2.486 1* (-0. 02 3 93-R/D) ) ^-0. 2 279 8 
GO TO 40 

C=1. 0 456*EXP (1 .743 13* (0. 01219-R/D) ) ^*0. 1577 6 
CONTI'NUE 
WKI(1)=GEOM 
WXI (2) =4 
WKR 1)=AREA 
WKR{2)=0.0 
WKR (3)=C 
WKR 4{ =AREA 

F0RHAT(’ TOU have SELECTED A SEGMENTED ROUND CRO SS-SE C TION 90 DEG 
**FIRST gUESTICN, HOW MANY SEGMENTS, INCLUDE ENTRY 



10 

20 

30 

40 



600 



60 1 
602 



>RE£ ELBOW 
^•AMC EXIT? 



V 



FORMAT (’ 
FORMAT (• 

END 



(3,4,OR 5) **•) 

ENTER THE C ROSS-SECTIONAL DIAMETER.’) 

r \ c 1’ “nTc-^mu ’□u\T’ Tc ■»’up osnTTC ne i. 



LAST LOSSTION, SHAT IS THE RADIJS OF THE TUEH OF THE ELB 
aEASUEEL TO THE CSNTEHLINE OF THE DOCT?') 
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c** * * 

c 

c** ♦ 

c 

c 

c 

c 

c** * * 



10 

12 

20 



««««««»«* **♦♦»*♦♦♦**** *♦**♦*****»*♦»♦♦♦♦«♦** *mmm********mm*mi 

FlZZlliG 05; £150' .1IT£E£D CIBCJLAR CHCSS- 5 HCTION 

R£r, ASP.EAZ HANC30CK, ?AG£ 33.33, TABLE E-3, FITTING 3-3 
C'JFVS FIT TO DATA. 

THIS IS A SHORT FITTING. CONNECTING DUCTS SHOULD B£ NEASURnD 
TO THZ^CSNTEE^CF^THIS ♦ 

SUBROUTINE 
REAL 



bOO 

60 1 
602 

603 

604 



UEROUTINE FIT05 (SOR L, GEOH . WKI , N KR) 
EAL D,THETA,CPRINE. A REA-NKci, X 
INTEGER SORL.G ECNOSi .ANS e5, NO 
IHENSION RKI (2) , NKR (4) 



D 

DATA 



rKRti 

YES/’ YV^'Nt/* NV 

WRITE (6. 600) 

CALL iZADR(D,5) 

WRITE {6,60 1) 

CALL READR (iHETA, 5) 

K=1.0 

WRITE (6,602) 

READ (5,603,ENC=12.ERR=12V ANS 
IF ( (ANS. Eg. lES) .OR. ( ANS.iQ.NC) ) GO TO 20 
REWIND o 
WRITE f6,604) 

GO TO 10 
CONTINUE 

IF fANS. EQ.TES) K=0. 2 7 
CPRINE=(3. 74E-4) * (THEIA**1. 7852) »K 
AREA=0. 7854*0**2 
WKljl)=GEON 

= AREA 
=D 

=C?RiaS 
^=AREA 

FORHA'rr YOU HAVE SELECTED A NITEHED 
**FIRST OUESTION, 

FOEflATC WHAT IS THE 



WKI 
WKE 
WKR 
WKR 
?KP (4 



WHAT IS THE 
ANGLE OF THi 



ROUND ELBOW, 
CROSS-SECTIONAL 
ELBOW TURN?*) 



V 

DIAMETER? *) 



FORMAtI* LAST QUESTION, APS OPTIMUM NUMBER OF CONCENTRIC VANES*/ 
• INSTALLED TO SEDUCE RESISTANCE AND TURBULANCE (Y/N)?*) 



FORMAT (A1) 
FORMATS YOU 
FETURN 
END 



MUST ENTER A LETTER IN THE BRACKETS.*) 
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I m** * *^***m** I 

FITING 06: 2LECVJ .IITSRED P.ECTANGaLAR C ROSS- SECTICN C 



FITTING 3-6 AND 






R£F. ASHRAS HANDBOOK. PAGE 33,33. TABLE B-3, r x ^ ^ x., 

THE HANDBOOK OF HYDRAOLIC RESISTANCE, lEDL'CHIK, 

CURVE FITS TO TEE DATA, THIS IS A SHORT FITTING, MEASURE DUCT 

SUEEOUTINE FIT06 fSORL ,GECH, HKI, WKE) 

REAL H,N,THETA,C1,A,P HI,C?nlHE,EAD, AREA,DH, WKE 
INTEGER SOELrGiCH, WKI 
DIMENSION WKI (2),WKR(4) 

WRITE (6, 60 0) 



CALL RSADR(H,5) 
WRITE (6, 60 T 
CALL FEADRj[W,5) 



WRITE (6, 60 2) 

CALL nEADR (THETA. 5) 



A # ^ J 

90,0) GO TO 



IF (TEEIA,_. 

WRITE (6, 603) 

GO TO l5 
RAC = TH£TA*3, 14 16/130, 0 
DH = 2, 0* (H*W) / (H + «) 
AREA=H*W 



C1=0, 230 97 ♦EXP (0, 3889 6 ♦ ( 1 . 873 33- ( H/W) ) ) +0,67819 

A=1, 2 + 1, 03 81 ♦( 1,5708 -RAD) / I, 04 72) ♦♦ 1. 8 233 

PKI=0,95^ ( (SlNjBAD/2, 0) ) ♦♦2) +2, 05 ♦ ( (SIN (RAD/2,0) ) ^^4, 0) 

CPEIME=C1^ A^PHI 

WHI(1)=G£OM 

WKI (2)=6 

WKR(1)=AREA 

«KR(2)=DH 

WKR (3 =CPP.IME 

HKF 4UaREA 

600 FORMATf’ YOU HAVE SELECTED A MITERED, RECTANGULAR CROS S-SE CT ION , 

+ EL30M,V’ ♦♦FIRST QUESTION, WHAT IS iHE HEIGHT OF THE ELBOW? V 
+• (THE DIMENSION PARALLEL TO THE TURN AXIS)*) 

601 FOFKAT(^ WHAT IS THE WIDTH OF THE ELBOW CROSS-SECTION? •/ 

+ * fTHE DIMENSION IN THE PLANE OF THE TURN)*) 

602 FORMAT(* LAST QUESTION, WHAT IS THE ANGLE OF THE ELBOW TURN (0 - 
+90 DEGREES)?*) 

603 FORMAT(* ELBOW TURN ANGLE MUST NOT BE GREATER THAN 90 DEGREES.*) 
FSTURN 

END 
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C FITTING 07: EIBOH SMOOTH RADIOS RECTANGULAR WITHOUT VANES C 

(^♦♦»«********* ♦**♦♦♦♦♦** ♦♦♦♦★♦♦♦**<i<i************<i****<i***************<i*(2 

C REF. ASHRAE HANDBOOK, PAGE 33.31, TABLE 3-3, FITTING 3-5 

C OSES TWO DIMENSIONAL TABLE TO PROVIDE COEFFICIENT. CALL TABLE 

C SUBROUTINE, A TABLE LOOKUP AND INTERPOLATION SUBROUTINE. 

C SHORT FITTING, MEASURE CONNECTING DUCTS TO THE CENTER OF FITTING 

SUBROUTINE FIT07 ( SOR L,G EOM , WKI , NKR) 

REAL WKE.H ,W ,R, THETA, T - X -XTHETA , C , CPEIM E, D H , AR EA 
INTEGER 5kI, 50RI,GE0M .XOUT 
DIMENSION WKI j2) , WKR^4J , X|6 1^,X (2^ 



10 



20 



TABLE IS LISTEC AS F 
DATA T/ 9.00, 5.00, 



OF X’S, NUMBER OF Y’S, THE X’ S 
0.25, 0.50, 0.75, 1.00, 1.5 0,2. 00, 3. 00, 4. 00, 5. 00, 
THE rs 



0 .50 ,0.75, 1 .00, 1.50,2. 00, 

THE TABLE INCREASING X TO THE RIGHT, INCREASING Y DOWN 
f 1. 3 0, 1.3 0, 1 .20, 1.20, 1 . 10, 1 . 10 ,0. 98, 0.92,0.89, 

0. 57,0.5 2,0.48,0.44,0.40,0.39,0. 39,0.40,0.42, 

► 0.27,0.25,0.23,0.21,0. 19,0. 18,0. 18,0.19,0.20, 

f 0. 22,0.20,0. 19,0. 17,0. 15,0. 14 ,0. 14,0.15,0.16, 

> 0. 20 ,0. 18, 0. 16,0. 15,0. 14,0. 13 ,0. 13,0. 14,0. 14/ 

WRITE (6, 600) 

WRITE (6, 60 l( 

CALL E£ADRjH,5) 

WRITE (6, 602) 

CALL READRiW,5) 

WRITE (6. 603) 

CALL H£ADR(R,5) 

WRITE (6, 6Qil) 

CALL 5EADR (THETA,5) 



( 1) =H/W 
X(2}=R/W 
CALL TABLE (T 
IF (XOUT. GT.O) 

WRITE (6. 605) 

GO TO 10 

KTHETA=0. 0 30 6 *THETA** 0.7 82 5 

DH=2. 0* (H*W) / (H4W) 

C?RIME=C*KTHETA 

AfiZA=H*W 

WKI 1J=GE0M 



(T, X,XOOT. C) 
** GO TO 20 



WKI 

WKR 

WKR 

WKR 



600 

601 

602 

603 

604 

605 



2 =7 

1 ) =ARI 

2) =DH 

3) =CPRIME 



:a 



WKR (4) =R/W 
FORMAT ■■ 
♦OUT VA 



(’ YOU 
NES. M 



HAVE SELECTED A SMOOTH RADIUS RECTANGULAR ELBOW WITH 




FORMAT( 
V’ OF 
FORMAT (• 
♦ EES) ? M 
FORMAT (• 
RETURN 
END 



THE ELBOW CROSS-SECT 10 N? • ) 

LAST QUESTION, WHAT IS THE ANGLE OF THE TORN (0-90 DEGR 

CROSS-SECTION EXTREMELY NARROW, RE-ENTER BETTER DATA.*) 
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FITTING 08: EIEOW SMOOTH RADIUS HSCTANGOLAR irfITH SPLITTERS 

HZF. ASHRAE HANDBOOK, PAGE 33.32 o 33.33, TABLE 3-3, FITTING 3-7 
USES TABLE INTERPOLATION SCHEME 

THIS IS A SHORT FITTING, MEASURE CONNECTING DUCT TO THE CENTER 
OF THIS FITTING TO INCLUDE FRICTION. 

*** **************** It* ** *** *m** mm *** ***** % 

SUBROUTINE FIT08 (SOB L, GEOM , WKI , i KR) 

REAL WKR R,IHETA.KTH ETA .AREA, X,C,C?RIMS, T1,T2,T3 
INTEGER WKI. N, XOUT,SORL,GEOM 

DIMENSION WKI (2) ,NKR ( 4) , X (2) , T1 (100) ,T2 (100) , T3 ( 1 00) , XO UT (2 ) 

ONE SPLITTER 

DATA T1/8. 00, 10.00, 0.25,0.50,1.00,1.50,2.00,3.00,4.00,5.30, 

♦ 0.55, 0.60, 0.65, 0-70, 0.75,0. 80, 0.35, 0.90,0. 95,1. 00, 

♦ 0.52, 0.40, 0.43, 0.49, 0.55, 0.60,0.75,0.84, 

♦ 0.36, 0.27,0.25,0.23,0.30,0.35, 0.39,0.42, 

♦ 0.28,0.2 1,0. 18,0. 19,0.20,0.22, 0.25, C. 2 6, 

> 0.22,0. 16,0.14,0.14,0.15,3.16,0. 17,0.18, 

♦ 0. 18,0. 13,0.11,0.11,0.11,0.12,0.13,0.14, 

0.15, 0. 1 1,0.09,0.09,0.09,3.09, 0. 10,0.10, 

♦ 0.13, 0.0 9, 0.08, 0.07, 0.07, 0.03, 0.08, 0.0 8, 

> 0.1 1,0. 08, 0.07, 0.06, 0.06, 0.06, 0.06, 0.07, 

> 0. 10,0. 0 7,0.06,0.0 5, 0.05,0.35, 0. 05,0.0 5, 

0.09, 0.06, 0.05, 0.05, 0.04, 0.04, 0.04, 0.0 5/ 



IXC SPLITTERS 
DATA T2/8. 00, 10.00, 0. 

♦ - 0.55,0.60 

♦ 0.26,0.20 

> 0.17,0.13 

♦ 0.12,0.09 

♦ 0.09,0.07 

♦ 0.08,0.05 

♦ 0.06,0.04 

♦ 0.05,0.04 

> 0.05,0.03 

> 0.04,0.03 

♦ 0.03,0.02 
THREE SPLITTERS 
DATA T3/8. 00 , 1 0.00. 0 . 

♦ 0.55,0.60 

> 0 . 11 , 0 . 10 

♦ 0.07,0.05 

♦ 0.05,0.04 

♦ 0.03,0.03 

♦ 0.03,0.02 

♦ 0.03,0.02 

> 0 . 02 , 0.02 

> 0 . 02 , 0.01 

♦ 0 . 01 , 0.01 

> 0.01,0.01 

WRITE (6,600) 

HOW MANY SPLITTERS ??? 
WRITS (6, 60 1) 

CALL READI{Ne5) 

IF ( (N.LX. 1) .OR - (N. GT. 3) ) 
WRITE{6, 602) 

CALL READR(H,5) 

WRITE (6, 603) 

CALL REiDR (W,5) 

WRITE (6,604) 

CALL READR(R,5) 

WHITE (6, 605 ) 

CALL REiDEfTHETA, 
KIHETA=0. 0306*TEE 



25,0.50,1 .00,1 .50,2. 00, 3. 00, 4. 00, 5. 00, 



0.65 
0.22 
0 . 1 1 
0.08 
0.06 
0.04 
0.03 
0.03 
0.03 
0.03 
0.02 

25,0. 
0.65 
0 . 12 
0. 06 
0.04 
0.03 
0.02 
0.02 
0.01 
0.01 
0.01 
0.01 



0.70,0.75 
0.L5,0. 28 
0. 12,0. 13 
0.08,0.08 
0.05,0.06 
0.40,0.04 
0.03,0.03 
0.03,0.03 
0 . 02 , 0.02 
0 . 02 , 0.02 
0 . 02 , 0.02 

oO, 1 .00, 1 . 
0.70,0.75 
0. 13,0. 14 
0 . 06 , 0 . 0 0 
0.04,0.04 
0 . 02 , 0.02 
0 . 02 , 0.02 
0 . 02 , 0.02 
0 . 01 , 0.01 
0.01 , 0.01 
0 . 01 , 0 . u 1 
0 . 01 , 0.01 



0.80, 0.35,0.90,0:95, 1 .00, 
0.33,0.37,0.41, 

0.15,0. 16,0.17, 

0.09,0. 10,0. 10, 

0 .06 , 0.06, 0.06, 

0.04, 0.05,0.05, 
0.03,0.03,0.03, 
0.03,0.03,0.03, 
0 . 02 , 0 . 02 , 0 . 02 , 

0 . 02 , 0 . 02 , 0 . 02 , 

0 . 01 , 0 . 01 , 0 . 01 / 

50,2.00,3.00,4.00,5.00, 
0.80,0.35,0.90,0. 95, 1.00, 
0. 16, 0. 18,0.19, 

0.07, 0.07,0.08, 

0.04, 0. 04, 0.04, 
0.03,0.03,0.03, 

0 . 02 , 0 . 02 , 0 . 02 , 

0 . 01 , 0 . 01 , 0 . 01 , 

0 . 01 , 0 . 01 , 0 . 01 , 
0 . 01 , 0 . 01 , 0 . 01 , 

0 . 01 , 0 . 01 , 0 . 01 , 
0 . 01 , 0 . 01 , 0 . 01 / 



GO TO 10 



M =H/W 
]21=R/W 
REA=H*W 



5) 

TA**0.7825 



GO TO (20 , 30 , 40) , N 
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20 

30 

40 

50 

60 

600 

601 

b02 

603 

604 

o05 

606 



CALL TA3 
GO TO 50 
CALL TAB 
GO TO 50 
CALL TAB 
CCNTINUE 
IF ( (XOUT 
WRITE (6- 
GO TO 10 
C=CPEIME 



LE (T1 XOUT ^CPRIME) 
LE (T2,X,XOUT,CPRIME) 
LE (T3,X,XOUT^CPRI«E) 



J^J,.GT.0) -OR. (XOOT (2) .GT. 0) ) GO TO 60 



1) =G 

2) =S 



1 =A 
2^=0 

3 

4 5^=A 



WKI 
WKI 
WKR 
WKR 
WKR 

WKR ^ . 
FORrfAt (• 

♦ 5PLITTS 
FORMAT (’ 

+ ,2,OR 3) 
FORMAT (' 

♦ » fTH 

FORMAT (• 

♦ • DI 

FORMAT (• 

V’ OF 
FORMAT (• 

♦ EES) ?•) 
FORhAT(» 
RETURN 
END 



;o6) 

♦K THETA 
EOM 

REA 

. 0 



REA 

XOO HAVE SELECTED A SMOOTH RADIUS RECTANGULAR ELBOW WITH 
HS.V* IT MAY HAVE K 2 , OK 3 SPLITTERS, •) 

♦♦FIRST QUESTION^ HOW MANY SPLITTERS ARE IS THE EL30W (1 



'what is the height OF 
E CROSS-SECTIONAL DIMENSION PARALLE 



HE ELBOW? 

ELBOW (T 
TORN) 7’ 

_ __ __ ___ "'’’LBOW, 

THE ELBCW CROSS-SECTION^* ) 



TC THE TURN AXIS) * ) 

. CROSS-SSCTIONA^ ’ / 

RN)?*) 

WHAT IS THE RADIUS OF THE ELBOW, MEASURED TO THE CENTER* 



WHAT IS THE WIDTH OF THE ELBOW (THE CRO SS-SSC TION AX 
MENSION IN THE PLANE OF THE TORN)?* 



LAST. QUESTION, WHAT IS THE ANGLE OF THE TURN (0-90 DEGR 
CROSS-SECTION EXTREMELY NARROW, RE-ENTER BETTER DATA.*) 
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20 

30 

40 



C RZ7. ASHRAS HANCBOOK, PAGE 33.32, TABLE 3-3, FITTING 3-3 

C GIVES COEFFICIENT AS A FONCTION OF NO.^BER OF VANES 

C SHCRT FITTING, DYNAMIC LOSSES ONLY. MEASJRE CCNNECTING DUCTS 

C TO THE CENTER OF THIS FITTING TO INCLUDE FRICTION. 

** «*«««««««*« 

SUERO UTINE FI TO 9 (SOR L,GEOK, WKI ,NKR) 

REAL WKR.C.AREA 
INTEGER SO RL.G ROM, WKI .N 
DIMENSION WKI (2) ,WKR (4) 

WRITE (6. 600) 

CALL flEiDIiN,5|^ 



600 



60 1 



GO TO (10 , 20 
C = 0. 12 
GO TO 40 
C=0. 15 
GO TO 40 
C=0. 18 
CONTINUE 
WRITE (6,60 1) 

CALL . READR (AREA,5) 

= 9 

= AREA 
= 0.0 
=c 

WKR(4)=AREA 

FORMAT (» YOU HAVE SELECTED A MITERED RECTANGULAR ELBOW WITH’/ 
‘ SINGLE THICKNESS VANES. THERE MAY BE 1, 2, OF 3 VANES.*/ 



WK 
WKI (2j 
WKH h: 
WKR 
WKR 



♦ • 

♦ * **FIHST QUESTION, HOW MANY VANES (1,2,0 
FORMAT (• UST QUESTION, WHAT IS THE CROSS 
+ L3CW7 •) 

RETURN 
END 



06 3 
S 



[ ?•) 
CTIC 



TIONAL AREA OF THE E 
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i2;*f ♦♦22»52****22H5** i***S2iI*2** 2**^2 

REF. ASHRAE HANDBOOK, PAGE 33.32, TABLE B- 3 , FITTING 3-10 
TABLE INTERPOLATION 

SHORT FITTING, DYNAMIC LOSSES ONLY. MEASURE CONNECTING DUCT TO 

SUEEOUTINZ FIT 10 (SOH L, GEOM , '^KI KR) 

REAL VKR,C .AREA,DH,X. CPR IME , '/^0 , « 1 ,h 0 
INTEGER 5KI.S0Rl,Gi:0fl -N 

DIMENSION WKI {2I,WKfi{4) ,T(36) *Xi2) .X0UT]2) 

DATA T/6 . 0 0, 4. CD, 0 . 60 , 0. 8 0 , 1 . 20 , 1 . 40 , i. 6 0 , 2 . 00 , 

> 0. 25, 1.00, 4. 00, 1000. 00. 

♦ 1 . 8 0, 1.40, 1. 10, 1. 10, 1. 10 , 1. 10, 

> 1. 70, 1.40, 1.00,0. 95, 0.90,0.84, 

+ 1. 50, 1. 10,0. 81 ,0. 76, 0.72,0.6 6, 

♦ 1. 50, 1.00,0. 6 9,0. o3, 0. 60, 0.55/ 

WRITE (6, 600) 

WRITE(6,60 1) 



CALL PEiDR(H0,5) 
WRITS (6, 60 2) 

CALL nEADR(ff0,5) 



20 



600 



601 

602 

603 

604 



WRITE (6, 60 3) 

CALL REiDR(W1,5) 

X ( 1) =W1/W0 
X(2)=H0/W0 

CALL TABLE (T,X,XOOT,C PRIME) 

WRi'^^°6^iol*^^’^^ ^ 

GO TO ^^6 ^ ^ 

DH=2. 0* (H0*h0) / (HO + WO ) 

AREA=H0*W0 



WK 

WKI 

WKR 

WKR 

WKR 

WKR 



1) =GSOM 

2 ) =10 

i; =AREA 

2WdH 
3' =CPRIME 
4)=W1*H0 



F0E:1AT(’ you have selected a 90 DEGREE RECTANGULAR ELBOW WITH’/ 
EITHER CONVERGING^OR DIVERGING FLCW.^ THE HEIGHT (DIMENSIGN*/ 



PARALLEL TO THE TORN AXIS) SHOULD REMAIN CONSTANT.’) 

FORMAT (* ♦♦FIRST QUESTION, WHAT IS THE CEO SS-SECTICN AL INLET HEIG 
♦HT?' ) 

FORMATf’ WHAT IS THE CROSS-SEC TION AL OUTLET HEIGHT (DIMENSION IN 
>TH£ PLANE OF TEE TORN)?’) 

LAST QUESTION, WHAT IS THE CROSS-S ECTIONAL EXIT WIDTH?’) 

CROSS-SECTION EXTREMELY NARROW, RE-ENTER BETTER DATA.’) 



FORMAT (’ 
FORMAT (’ 



FETORN 
END 
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fliriNG 11; SLEOWS 90 OEGEEE EECTANGULAH IN :-3HAPED CONFIG. 

’REFr*ASaHA”naCBOOK, PAGE 33.32,*IAaL£ B- 3 , ?ITTI'*G*3-1*** ****** 
CJSVE FIT TO TEE TABLE 3ATA 



I **««***«« 1 



SaSHOUTINE FIT1 1 (SOS GEOM. WKI/iKR) 

REAL WKS ,C ,AREA,DH,L, ,Crfii:iE,X, Y, K 
INTEGER SORL, GECa- WKI 
DiaENSIOH WKI (2) ,5 kR(4) 

WRITE (t, 600 
CALL R£ADE(H,5) 

WRITE (6, 60 1) 

CALL ^£ADR(W,5) 

WRITE (6, 602) 

CALL ^EADR(L,5) 

X=L/H 

Y=fci/H 

IF ( (X.GT. 0 .0) • AND, (X. LT. 2.8) ) GO TO 10 
C=j. 4 d47-0.0992*X 
GO TO 20 

10 C= ( ( ( (0- aS04 5*X)-5.21 052) *X + 9. 1399) *X-2. 168) *X+0.0545 

20 CONTINUE 

K=0. 4 704* EX? (-0.3558* Y) +0.67 

C?RiaE=C*K 

0H=2. 0*(H* W) / (H + W) 

AREA=H*W 
WKI (1) =GSOa 
WKI I 2)=1 1 
WKR I 1 =AREA 
WKR !'2)=0H 
WKH I 3) =CPRiaE 
WKR 4 UaREA 

600 FORaAT(» YOU HAVE SELECTED A SERIES 90 DEGREE RECTANGULAR SL20W*/ 
+ • SET IN A Z-SHAPED CON FIGUR AT 10 N . * /’ **FIfiST QUESTION, WHAT IS 
♦THE HEIGHT OF THE ELBOW CROSS-3 ECHO N? » / * (DIHENSIO:* IN THE PLA 

♦ NS OP THE TURN) •) 

601 FORaAT(» WHAT IS THE WIDTH OF THE ELBOW C RO SS-SECTION? » / 

♦» (THE DIMENSION PARALLEL TO THE TURN AXIS)*) 

602 FORaiT(* LAST QUESTION. WHAT IS THE LENGTH BETWEEN CE N TERL IN ES ’ , 

♦ • OF THE ’*Z» ENTRANCE AND **Z’» EXIT?*) 

RETURN 
END 



V 
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C 



imm *********** ********************** ***rn* tim* ******** rn**** A 

FITTING 12: FLEOWS 90 DEGREE IN DIFFERENT PLANES 

k **41 *««««*«««*« *«««««*««««««*««*«* ’ 

REr- ASHRAE HANDBOOK^ PAGE 33 . 33 , TABLE 3-3, FITTING 3-12 



KEr- ASnSAE tlANLDUUK., c'Ab£. JJ.J. 
CJRVE FIT TO THE TAB6lATED DATA 



I ** * * ******* : 



10 

20 

30 

!40 



600 



60 1 



SUBRO DTINE FIT 12 (SOEI,GEOM, WKI, i^KR) 
REAL NKR,C,AREA,DH,L, W,H,CPRiaE,X, Y,K 
INTEGER SORL.GEC.I-NKI 
CINENSIDN WKI (2) , JfKH (4) 

WRITE (6,600) 

CALL READR(H,5) 

WRITS (6,60 t) 

CALL READR(W,5) 

WRITE (6, 602) 

CALL flEADE(L,5) 

X=L/H 



IF ( 


[( 2.31. 0.0) . AND. (X. LT. 1.4) 


) GO 


TO 


10 


IF 1 


(X.3E. 1 .4) . AND. (X. LT. 2.0) 


) GO 


TO 


20 


IF 


(X.GS. 2 .0) . AND. (X. LT. 4.0) 


) GO 


TO 


30 


c=: 


S.4-0. 10«X 









GO TO 40 

C= ( n (1- 79 343*X)-5.47 366) *X + 3, 5957) *X^2.29846) !• 20 

GO TC 40 



C= (J[^ 1,04166*X) 



40 



C= (((O, 0 0 983 *X) -0-246 79 9) 
CCNTINOE 



5-357 13) *X+8.60 118) ♦X-l .0057 

X^l- 154425) *X+1. 702965 
0-3558* X) +0.67 



K=0- 4704*EXP (- 
C?RI.1E=C*K 
DH = 2. 0*JH*W)/(H>R) 

WKI (1) =GSOM 

WKI (2 =12 
WKR i'l)=AREA 
WKR I 2) =DH 
WKR r3)=C?RINE 
WKR 4j =AR£A 

FOEdAT(» TOO HAVE SELECTED A SET OF 90 DEGREE RECTANGULAR ELBOWS 
♦ IN DIFFERENT PLANES.*/* **FIfiST O'JESTION, WHAT IS THE HEIGHT OF T 
♦HE ELBOW CROSS-SECTION?*/* (DIMENSION ^N THE PLANE OF THE TURN 



0RMAT(* what is the width of the elbow CROSS-SECTION?*/ 
(THE DIMENSION_?ARALLSL rO_ THE__TURN AXIS)_^ ‘ 



602 FORflAT(* LAST QUESTION, WHAT IS THE LENGTH BETWEEN CENTERLINES*/ 
♦ * OF THE '*2» ENTRANCE AND "2** EXIT?*) 



RETURN 
END 
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FITTING 13: EEANCH SECTION DIVERGING Wrs 

k******************************************* ***««**«««****«**««**« 

REF- IDEL’CHIK^ HANDBOOK OF HYDRAJLIC HSSISTANCE, SECTION SEVEN 
PAGES 247-253 



SUEROaTINE FIT 13{S0RL ,GEOH, bKI, -KR) 

REAL KKR, ALFAD . AC, AB 
INTEGER SOfiL, GcC3, NKI 
Ci:iENSION WKI (2)r5iKR(4) 

WRITE (6. 600) 

CALL READR (ALFAD^S) 

WRITE ( 6 . oO 1 ) 

CALL READR(AC,5) 

W RITE ( 6 ^ 602 ) 

CALL R£ADR(AB^5) 

WKI (1)=G£OM 
WKIi 2; =13 
WKR ri ) =AC 
WKR (2 =AB 
WKR 3)=ALFAD 
WKR 4\ =AB 

FCRriATf’ TOO HAVE SELECTED THE BRANCH SECTION 0? A DIVERGENI W^ 

♦ V* the kodole cooling air shoold be branching off the :1AIN'/ 

INLET AND FLOWING THROOGH THIS SECTION. ' THIS SHOOLD BE THE * 
FIRST FITTING -OF THIS BRANCH.*/ 

>• **F'IRST QOESIION, WHAT IS THE ANGLE BETWEEN THE SAIN FLOW •/ 

‘ AXIS AND THE BRANCH FLOW AXIS (DEGREES) 



600 



60 1 



602 



FORSATi* WHAT IS THE CROSS-SECTIONAL AREA OF THE CCHBINED FLOW*/ 
♦* SECTION? THIS IS WHERE BOTH ENGINE AIR AND COCLING AIR FLOW*/ 

♦ * JOST OPSTREAS OF THE BRANCH.*) 

?OR«AT(* LAST QUESTION, WHAT IS THE CROSS-SECTIONAL AREA OF THE B 

♦ RANCH?*) 

RETURN 

END 
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C FITTING 14: AIN^SECTICN^DIVERGING^WYE^^^^ ^ C 

C*****REFr IDEL’CHIK, HANDBOOK OF HYDRAJLIC RESISTANCE^ SECTION SEVEN**^ 
PAGES 247-253 



SUBROUTINE FIT 14 (SOHL^GEON, WKI, WKH) 
REAL SKR.Ail 



INIHGEE SCHL.aECa.WKI 
CiaESSiaS WKI (2) , wKH (4) 
KEITH (6, 600) 

CALI BEttOR(aM,S) 

WKI (1)=GEO.'l 



WKI(i; _ 

WKI(2i =1 4 
WKE I 1)=Aa 
KKR 1 2) =0. 0 
KKE I 3) =0. 0 
KKR (4( =Afl 

600 FORMATC YOU HAVE SELECTED THE 3AXH SECTION OF A DIVERGING KYE. •/ 
THE AIR TO THE ENGINE SHOULD 3E FLORIMG THRCUGH THIS SECTION.'/ 
JUST ONE OUESTION- WHAT IS THE CROSS-SEC TIO NAL AREA OP THE '/ 

♦' SAIN SECTION? THIS SHOULD BE THE AREA JUST DOWNSTEEA3 OF THE'/ 
♦' JUNCTION AND DIRECTS FLOK TO THE ENGINE. IT ALSC SHOULD BE'/ 

♦' THE FIRST FITTING OF THE BRANCH.') 

RETURN 

END 
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C FITTING 15: 2RANCH SICTICN CONVERGING VYS 

Qm* * ******* *** ** ** * ****m** * ****************** **** ****** t 

REF. IDEL'CHIK, HANDBOOK OF HYDRAULIC RESISTAiJCE, SECTION SEVEN 
PAGES 247-253 



I « « ««« ««*« 1 



SOE SOUTINE FIT 15 (SORL^GEOa, iiKI, WKH) 
REAL WKR, ALFAC ,AC,A3 
INTEGER SORL-G ECa, WKI 
DI.'IENSIDN WKI (2) , &KE (4) 

WRITE (6,6001 

CALL READR (ALFAC, 5) 

WRITE (6,60 T} 

CALL READRiAC,5) 

WHITE (6, 60 2) 

CALL READR(AB,5) 



WKI 

WKI 

WK5 

WKR 



WKR 



1)=GEOH 

2=15 

1) =AC 

2) =AB 



WKR I 3)=ALFAC 



4) *AB 



600 FCRMATC YOU HAVE SELECTED THE BRANCH SECTION OF A CONVERGENT •/ 

♦ • WYE. THE HOT HODOLE COOLING AIR SHOULD BE JOINING THE .IAIN*/ 

ENGINE EXHAUST IN THIS WYE. THIS FITTING SHOULD BE THE LAST’/ 
FITTING IN THE BRANCH.’/ 

♦ ♦♦FIRST DtJESTION, WHAT IS THE ANGLE BETWEEN THE aAIN'FLOW •/ 



60 1 



602 



♦ • AXIS AND THE BRANCH AXIS (DEGREES)?’) 

FORHATJ’ WHAT IS THE CROSS-SElTIONA L AREA OF THE COMBINED FLOW’/ 

♦’ SECTION? THIS IS WHERE ENGINE EXHAUST AND HODULE COOLING AIR’/ 
♦’ FLOW JUST DOWNSTREAM OF THEBRANCH.’) 

FOEMATf* LAST lUESTION, WHAT IS THE CROSS-SECTIONAL AREA OP THE’/ 

♦ ’ BRANCH?*) 

RETURN 

END 
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5ITTIMG 16: .IAIN SECTION CONVERSING WYE 

REF. IDEL’CHIK^ HANDBOOK OF HYDRAULIC RESISTA.NCE, SECTION SEVEN 
PAGES 247- 253 



600 



SUBROUTINE FIT 16 (SORL ^GEC.'l , WKI ^ WKR) 

REAL WKB.AH 

INTEGER SORI.GECa, WKI 

CI.^ENSION WKI (2) ,iKE (4) 

WRITE (6, 600) 

CALL READR(AM,5) 

■ 1) =GEOH 
= 16 
=AH 
= 0.0 
= 0,0 
=AH 

(• YOU HAVE SELECTED THE HAIN SECTION OF A CCNVERGING’/ 
THE ENGINE EXHAUST ALONE SHOULD 3E FLOWING THROUGH */ 



WKI 
WKI 
WKR 
WKH 
WKR 
WKB (4 
FORMA 



WYE. 



♦ » THIS SECTION. IT SHOULD BE THE LAST FITTING OF THE EHANCH.V 

♦ « **JUST ONE CUESTION, WHAI IS THE CRO SS- S ECHO N AL AREA OF THE*/ 

♦ » MAIN ERANCH?*) 

FETURN 

END 
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FITTING 17: CO NCIAL DIFTUSSR 

**«««*««***««««*«««*««««««*««««*««««««*«*«**«**«*«****«««««*«*««««««** 

REF. IIEL'CHIK, HANDBOOK OF HYDRAULIC RESISTANCE, SECTION FIVE, 
PAGE 167 ' 



C»* * ^ 



10 

12 

14 

16 



20 

22 

24 

26 

30 

40 

50 

60 



> «««**«*«*** I 



600 



601 

602 

603 



SUBROUTINE FIT 17 (SOR L . GEOH , WKI , ;?KR) 

REAL WKR, L,D0 , D1.:<1,K2.A0, A1, THETA,CEX?,CFa?HI 
INTEGFR GECM.SCai '-KI -ANS, YES, NO 
DIMENSION WKI (2) , -KR f 4) 

DATA YES/* Y*/, NC/’ N* / 

WRITE (6, 6001 
CALL READa(L,5) 

WRITE (6- 60 T) 

CALL REiDR (DO, 5) 

WRITE (6,60 2) 

CALL nEiDR (5l , 5) 

WRITE (6, oOi) 

READ (5,S04 ,END = 14,ERR = 14) ANS 

I? (]aNS. EQ. YES).OR. ( ANS.EQ.NO) ) GO TO 16 

REWIND 5 

WRITE (6,608) 

GO TO 12 
CONTINUE 
K1=1.0 

•IF (ANS.SQ. YES) K1=6.8 
A0=0. 7854*00**2 
A1=0. 7854 *01 **2 
IF(AI.GT.AO) GO TO 20 
WRITE (6. 605 
GO TO 10 

THETA=2.0*ATAN i (DI-DO )/ (2.0 *L) ) 

IF (THETA. LT. 0. 524) GO TO 30 
WRITE (6, 606)^ 

READ (b.o04 ,ERR = 24, END = 24) ANS 

IF (iANS. EQ. YES) .OR. (ANS.ED.NO) ) GO TO 26 

Rewind 5 

WRITE (6, 608) 

GO TO 2 2 
CONTINUE 
K2=1 . 0 

IF (ANS. EQ. YES) K2 = 0.6 5 

IF THETA. GT. 0. 7) GO TO 40 

CEXP= 1,3454* ( THETA** 1 .2) * (1. 0-AO/A1) **2 

GO TO 60 

IF (THETA . GT. 1 . C5) GO TO 50 

CEXP = ( ( ( (-0. 3 6 37*THET A) -0. 3715) *IHSTA* 3 . 02 1 8) *THSTA-0 . 6 4 10) * 

♦ 1. 0-AO/A 1)**2 
GO TO 60 

CEXP= ((( (-0. 00 6 1*THET A) -0.0 13 9) *THET A-0 . 09 2 9 3) *THETA* 1 . 2623 ) * 

♦ (1. 0-AO/A 1) **2 

CONTINUE 

WRITE (6, 607) 

CFF?RI=( 1 . 0- (A0/A1) ** 2)/ (8. 0*SI N ( THETA/2. 0) ) 

WK I / 1 ' 

WKI 
WKR 
WK? 

HKB 
WKR , 

FORMAT (• 



l)=GEOM 
‘=17 
=A0 

=:frpri*k2 

31=CEXP*K1 *K2 
4) =A 1 

YOU HAVE SELECTED A CONICAL DIFFUSER WITH 
INLET AND OUTLET SECTIONS. */ 

**FIR5T QUESTION, WHAT IS THE LENGTH OF THE DIFUSS3?’) 
WHAT IS THE INLEx OIA.iETER?') 

WHAT IS THE OUTLET DIAHETER7M 

IS THERE A NON-UNIFORH VELOCITY DISTRIBUTION AT THE INLE 



:IRCULAR '/ 



FORHAT(* 
FORMAT ' 
FORMATS 
♦ T (Y/N)?*) 
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oO 4 

605 

606 



607 

bOa 



FOS.-AT 

FOR.nAI 



FORKAF (' 






FORMAT 

FORMAT 

PETORN 

ENO 



DOWNSTREAM 
FITTING IS 



AREA 15 NOT GREATER THAN aPSTHEAM AREA.»/ 
NOT A DIFFOSER. RE-ENTER DIAMETEHS.’) 



SI.NCI THEES IS A ’;JI0E DIVEHGi;JG ANGLE, THE PSCPzll' 
INSTALLATION OF DIVIDING WALLS On 3Af;LE3 CAN HEDD 

:he resistance cf this fitting, do you want to ins 



I* 



dividing walls or SAFFLES (Y/N)?') 

NO MORE QUESTIONS THIS FITTING.') 

YOU aUST ENTER A LETTER IN THE 3HAC? 



ACKETS. ') 



30 



*-ir iX 

U'trl 



♦*«*«*****«*««*«*****«**««**«««««*«««««*«««« 

C .-I:t:NG 18: plane IN-LI^^E DIFFUSER 

***«**««**«*««*«««««««««*««*****<'*«««*«*«*««««***«««*«««*«« 

C REF. IDEL'CHIX, HANDBOOK OF HYDRAULIC RESISTANCE, 5ECIICN FIVE, 

C PAGE 171 

C 

C 



10 



u 



16 



20 

24 

26 

20 

40 

50 

60 



SUBROOTINE FIT 1 3 ( SCR L ,G ECH . WKI, UKP) 

REAL UKR.L.H, WO,- 1 ,X1 , K2 ,A0 , A 1 , THE .A , CEXP 
INTEGER 6£C'-.,SCaL, -KI .ANS,Yi5,NO 

T V c M cm K ’ *• f -:\ 



,CFRPRI 



;:I«ENSIDN :: (2) , WXH (4) 
DATA EES/’ . V/NC/»N«/ 
URITE (6, 6001 
CALL ^EADR]L,5) 

^ ' M) 



WH IT E (6 , 6 0 , 

CALL READR{H,5) 
WRITE (6, oOZ) 

CALL REAPR(W0,5) 
WRITE (6, 60 3' 



WRITE (6. 603) 

CALL H£ADH(W1,5) 

WRITE (b. 60 4) 

READ (b,o0 5 ,r:ND = 14.EP.R=14) A NS 
IF ] (ANS. EG. YES) .Ofi. ( ANS.EQ.NO) ) GO TO 16 
RiWIND ? 

WHITE (6,60 9) 

GO TO 1 2 
CCNTINOS 
K 1 = 1. 0 

IF (ANS.EQ. YES) K1=6.3 
A0=WO*H 
A1=W1 *H 
IF (A 1 .GT. A 0) 

WRilE (6,o06) 

GO TO 10 

THETA=2.0* ATAN ( (W1-W0 ) / (2. 0*L) ) 

IF (THETA. LT. 0. 5^4) GO TO 30 
WRITE (o, 607) 

READ (5,0 05 ,EN D =24 , ERR =24 ) ANS 
IF (i ANS. EC. YES) .OR. (ANS.EQ. NO) ) 

Rewind 5 
WRITE ( 6, 609) 

GO TO 22 
CONTINUE 
K2=1. 0 



GO TO 20 



GO TO 26 



(1.0-AO/A1) **2 



IF (ANS.EQ. YES) K2 = 0.6 5 
IF THETA. GT.O. 7) GO TO 40 
CEXP= 1.3454* (THETA** 1 .2) 

GO TO 60 

IF (THETA. GT. 1 . Q5)_ GO TO 50 

0.3 63 7*THETA) -0.3715) *THETA ♦ 3 . 021 8 ) *THSTA- 0. 5 4 1 0) * 

;o TO '60 



CZXP = 



m 



AO/A 1) ’ 



|1.4-A'0/A’1) **2“ 

CONTINUE 

^CFMEX.| jt.O;. O^AJj .0.5- (1 . 0- (>0/11, -Xn/ 

WRITE(6,603) 

WKI 1) =GEOH 
WKI i'2) =1 8 
WKR I 1 =A0 
WKR/2)=CFRPRI*K2 
WKR (3) =CEXP*K1 *K2 
= A1 



WKR 4^ _ 
600 F0RMA![(* 

♦ 

4> 



YOU HAVE SELECTED A PLANE INLINE DIFFUSER WITH ONEV 
OIHENSION CONSTANT THROUGHOUT AND RECTANGULAR INLET’/ 
AND CU'^LET. * / 

**fihst"'question, what is the length of the diffuser?’ 



Si 



onnoonn 



6U 1 


FORMAT (• 


602 


FORMAT(» 


603 


FORMAT?* 


60 4 


FORMAT * 


605 


♦ T (Y/N) ? * 
FORMAT (A 1 


606 


FORMAT (J 


607 


FORMAT(* 

♦ * 
^ f 


603 


+ * 

FORMAT (’ 


609 


FORMAT?* 

RETURN 

END 



WHAT IS THE CCNSTAHT HEIGHT 0? : 
CROSS-SECTIONAL AREAS?’) 

WHAT IS THE WIDTH OF THE INLET C 
WHAT IS THE WIDTH OF THE OGTLET 
IS THERE A NON-UNIFORH VELOCITY 

DOWNSTREAM AREA IS NOT GREATER 1 



DIFFUSER. RE-: 
WIDE DIVERGING 



FITTING IS NOT A 
SINCE THERE IS A _ _ . . . 

INSTALLATIONS OF DIVIDING WALLS 
THE RESISTANCE 0? THIS FITTING. 
DIVIDING WALLS OR BAFFLES (Y/N)?* 
NO MORE QUESTIONS THIS FITTING.’ 
YOU MUST ENTER A LETTER IN THE = 



HE INLET AND OUTLET ’/ 

ROSS-SECTION AL AREA?*) 
CROSS-SECTION AL AREA?M 
DISTRIBUTION AT THE INLE 



HAN UPSTREAM AREA.’/ 

NTER DATA.’) 

ANGLE- THE PROPER */ 

OR BAFFLES CAN REDUCE*/ 
DO YOU WANT TO INSTALL*/ 

I 

a ACKETS.' ) 



32 



Donnnnnn 



FxiTiNG^ 19: ? *••• * 

R£F. IDSL’CaiK, HAliDBOOK OF HYOHAULIC RESISTANCE, SECTION FIVE, 
PAGE 169 






10 



12 

14 

16 



20 

22 

24 

26 

30 

40 



50 

60 



SaHROOTINE FIT 19 (SORL -GEC.'I, KKI, WKR) 

REAL WKH, L.aO ,40.H1,W 1,K 1,K2, AJ , A 1 , AL F A , BET A , T HET A, CEXP , CFR PSI 
INTEGER GECa, SORl, WKI - AN 5 , YES , NO 



DIMENSION WKI (2) , WKR r 1) 

DATA YES/* Y* /, NO/* N* / 

VEITE(6, 6001 
CALL r.£ADHft,5) 
iJRITE (6, 60 Ti 
CALL FEADRfH0,5) 

WRITE (6. 602) 

CALL READR(W0,5) 

WRITE (6, 60 3) 

CALL HEADR(H1,5) 

WRITE (6, 604) 

CALL .nEADH J[W 1 ^ 5) 

WRITEfb. b05)_ 

READ (5,0 06 ,iND= 14, ERR = 14) ANS 
I? flANS. EC. YES) .OR. (ANS. EQ. NO) ) GO TO 
REWIND D 
WRITE (6,610) 

GC TO T2 
CONTINUE 
K1=1.0 

IF (ANS. EQ. YES) K1=6. 3 

AO = WO*HO 

A1=W1*H1 

I? (A1 .GT. AO) GC TO 20 
WRITE (b. 60 7) 

GO TO 10 

ALFA = 2.0*ATAN ( (W 1 - WO ) / ( 2 . 0 *L) ) 
3ETA=2.0*ATAN]]h 1-HO) / (2 .0*L 
THETA = A« AX1 (Air 

T r u cTii r T n ^ 



16 



(W1-W0) /(: 



IF (THETA. LT. 0. 524) GO TO 30 
WRITE (6. 603) 

READ (b.oOb ,£:ND = 24, ERR = 24) ANS 
IF (]aNS. EQ. YES) .OR. ( ANS.EQ.N 



WIND 0 



NO)) GO TO 26 



WRITE (6,610) 
GC TO Z2 



CONTINUE 
K2=l. 0 



IF (ANS.EQ. YES) K2 = 0.6 5 
IF THETA.GT.0.44V GO TO 40 
CEX?= 1.6 81 8* (THETA** 1 .2) * (1.0- 



2) *(1.0-A0/A1) **2 

GO TC 60 

IF (THETA . GT. 1 . C5)_ GO TO 50 

C£aF= ((( (3.35 9 8*THEIA)-9.7 924) * THETA 4559) *THETA- 1. 9 2 20) 
♦ (1- 4- AO/A 1) **2 

GO 10 60 

CEXP=1. 1 * ( 1. 0- AO/A 1) **2 
CONTINUE 

CF3?HI= (1 . 0- (A0/A1) **2)/ (3. 0*SIN (THETA /2.0) ) 

WRITE (6, 60 9) 

=GEOM 



WKI(1 
WKIi2)=19 



600 



WKR 

WKR 

WKR 

WKR 



=A0 

=CFH?RI* K2 
=CEXP*K1 *K2 



^=A1 



FOFMATC YOU HAVE SELECTED A PYRAMIDAL INLINE RECTANGULAR DIFFUSE 

4'R.’/’ **fihst question, whai is the length of the diffuser/') 



33 
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60 1 


forma: ( 


o02 


FORMAT ( 


603 


FORMAT ( 


604 


FORMAT ( 


oO 5 


FORMAT ( 


60 6 


♦ T (Y/N) 
FORMAT ( 


o 0 7 


FORMAT ( 


603 


FORMAT ( 

4 > 

♦ * 

♦ * 


609 


FORMAT ( 


610 


FORMAT ( 

RETURN 

END 



WHAT IS THE SMALLER DIMENSION OF THE INLET AREA?*) 

WHAT IS THE LARGER DIMENSION OF THE INLET AREA?*) 

WHAT IS THE DIMENSION JF THE OUTLET AREA PARALLEL*/ 

TO THE SMALLER INLET AREA DIMENSION?*) 

WHAT IS THE DIMENSION OF THE OUTLET AnEA PARALLEL*/ 

TO THE LARGER INLET AREA DIMENSION?*) 

IS THERE A NON-JNIFORM VELOCITY DISTaISUTION AT THE INLE 



DOWNSTREAM AREA IS NOT GREATER THAN UPSTREAM AREA.*/ 
FITTING IS NOT A DIFFUSER. RE-ENTER DATA.*)_ 

SINCE THERE IS A WIDE DIVERGING ANGLE, THE PROPER*/ 
INSTALLATIONS OF DIVIDING WALLS OF BArFLES CAN REDUCE*/ 
THE RESISTANCE OF THIS FITTING. DO YOU WANT TO INSTALL*/ 
DIVIDING WALLS OR 3AFFLES (Y/N)?*) 

NO MOPE QUESTIONS THIS FITTING.*) 

YOU MUST ENTER A LETTER IN THE BRACKETS.*) 



84 
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c*** 

c 

c 

c 

c 

c** * 



10 
ia 
1 6 



««««*** ««««*««** «**««*«*««***»««*« ««*« ««««*««*«««««««« ««*«« 

rllTIMG 20: TRANSITIONAL OIFfaSEE 

SEr. IDSL'CHIX, HAND3CCK OF HYOSAaLIC aSSISTANCE, SECTION FIyH** 
PAGE 174 



20 

30 



40 

50 

52 



54 

56 



bO 

70 



80 

90 



GO TO 16 



i*«*««*«*« *«**«««**««*« *«*«****««< 

SOEHOOTINE ? IT 20 ( SOR L , GEO« . ;?KI - ?KR) 

HEAL WKE .L.a, W , C-THET A.AO, AV:< 1 ,.<2,CEXP ,CFR?RI 
INTEGER SCRL.gIoM^RKI , iN3,y£S,NC 
OI.'IENSION -KI (2) , WKB (4) 

DATA YES/* T* /, NO/* N* / 

WRITE (b, 600) 

:?R ITEiStoO 

READ(5.b02,END=14,E2R = l4) A NS 
IF (]aNS. EC. YES) .OR. ( ANS.EQ.NO) ) 

REMIND 5 
WRITE (6,611) 

GO TD TO 
CCNTINQE 
WH ITE (6, 603) 

CALL FEADR(L,5) 

WRITS (6, 604) 

CALL flEADB(H,5) 

WHITE (6. 605) 

CALL pEADRiW,5) 

WRITE (6, 606) 

CALL .^ADR(D,5) 

IF (ANS.EQ. YES) GO TO 30 
A0=H*W 

A 1=0. 7854*0**2 
IF (A1 -GT. AO) GC TO 20 
WHITE (6.607) 

GO TO 10 

IHETA = (D-2.a*SCET (H*W/3. 14 16) ) /L 
GO TO 50 
A1=H*W 

A0=0. 7854*0**2 
IF (A1 .GT. AO) GO TO 40 
WRITE (6.607) 

GO TO l5 

IHETA= (2. 0*SCRT (H*W/3 . 14 16-D) ) /L 
“3NTINUE 



WRITE (6. 608) 

READ (5,0 02 ,^N D =54 , EBB =54) A NS 
IF ( ANS. EC. YES) .OB. (ANS.EQ.NO) ) GO TO 56 
tfRITE (0,6 11 
GO TO 52 
CC NTINUE 
K1=1.0 

IF (ANS.EQ. YES) K1=6.8 
IFJtHETA. LT. 0. 524) GO TO 60 
WHITE I6e 609) 

HEAD(5,o02) ANS 
K2=1. 0 

IF (ANS.EQ. YES) K2=0.65 
IF THETA. GT. 0.44)^ GO TO 70 
CZXP= 1.6618* (THETA **1 .2) *(1.0-A0/A1) **2 
GO TO 90 

IF (THETA. GT. 1 . 05)_ GO TO 30 

CEX?= ((( (3.3 5 9 a*THETA) -9.7 924) *THETA ^9 . 455 9 ) *THETA- 1. 9 2 20) 
♦ 1. i-AO/AI) **2 

GO TO 90 

CEXP = 1. 1 * ( 1. 0- AC/A 1) * *2 

CCNTINUE 

WB ITE (6, 6 1 0) 

CFHPRl=(1 . 0- (AO/A 1) ** 2)/ (8. 0*SIN ( I3ETA/2. 0 ) ) 

WKI ( 1 ) =^ SOH 
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noonnrx 



600 

60 1 

602 

603 

604 

60 5 

60 6 

607 

603 

609 

olO 

61 1 



\iKZ (2) =20 




1 =A0 

=CFR?RI»K2 
=CZX?»K1 *K2 
A 1 



FOR.'IA 
FCFMAT 
FOF.^AT 
♦ £A?» 






) 






(’ 

FCEhAT (* 
OEMAT (• 



WHAT IS THE LENGTH OF THE OIFFOSER?’) 

WHAT IS THE HEIGHT OF THE EECTANGULAR C HO SS- S ECTI ON AL AR 

WHAT IS THE WIDTH OF THE HSCTANG'JLAR C RCS S-3 E CTIO NAL ARE 

WHAT IS THE DIAMETER OF THE ROUND CROSS -S ECTIONAL AREA;’ 

DOWNSTREAM AREA IS NOT GREATER THAN THE UPSTREAM AREA. •/ 
FITTING IS NOT A DIFFUSER. RE-ENTER DATA.’) 

IS THERE A NON-UNIFORM VELOCITY DISTRIBUTION AT THE INLE 



FORMAT(’ 

♦ T (Y/N)?’) 

FORMAT(* SINCE THERE IS A WIDE DIVERGING ANGLE, THE PSOPERV 

♦ * INSTALLATIONS OF DIVIDING WALLS OR. BAFFLES CAN REDUCE’/ 

'HF. RFFT'^TANCF OF FTTTTM';- DO YOU WANT TO INSTALL*/ 



FORMAT ( 
FORMAT I 
RETURN 
END 



THE RESISTANCE OF THIS FITTING. 
DIVIDING stalls OR BAFFLES (Y/N)?*) 
NO MORE O^JSSTIONS THIS FITTING. *} 
YOU MUST ENTER A LETTER IN THE 3R 



ACKETS. * ) 
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FIITIMG*21: CIECaLAS CCSTRACTIOM * •**•*•*•0 

***•••** *♦♦*****•**** «**«***«*ft««*tt**** 

REF. ASHRAE HANC300K, PAGE 33.34, TABLE 3-5, FITTING 5-1 
TABLE INTERPOLATION 



600 

60 1 
602 



: ROUTINE FIT 2 1 (30RL , GEOM, KKI, NKR) 
\L WKR.DO. 01 ,L, THETA, T,C,A1 ,aO,X 
:egeh Sorl.G£C&, wki ,xoot 



5UE5 
REAL 

INTEGER ^ VJ C\1# . o u , n u X 

LI PENSION MKI (2) ,SiKR< 4) ,T (55) (2) ,XODT (2) 

OA^A ys 0 5 (j 

» * ‘ o.'o'io. 6, 30. 0,55. 0,90. 0, 120.0,1 50. 0, 180.0, 

♦ 1 . 0 , 2 . 0 , 4 . 0 , 6 . 0 , 1 0 . 0 , 

*• 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 . 0 . 0 . 

♦ 0. 0,0. OS, 0. 05, 0.06,0. 12, 0. 1§, 0.24, 0. 26 , 

♦ 0.0, 0.05,0. 04, 0.07, 0.17, 0.27, 0.35,0.41, 

♦ 0.0, 0.05,0. 04, 0.07, 0.13, 0.23, 0.36, 0.42, 

♦ 0.0 .0. 05,0.05, 0.08,0. 19, 0.29, 0.37,0.43/ 
WRITE (6, 6 0 0) 

CALL BEADR(t,5l 
IF (L.LT. 0. d5) 1=0.05 

WRiTZ (6, 60 1) 

CALL nEADH(D1,5) 

WRITE (6, 602) 

CALL nEADRlDO.?) 

IHETA=114. 156*AIAN( (D1 -DO) / (2. 0 *L) ) 

A1=0. 7854*01**2 
A0=0. 7854 *D0**2 
X ( 1) =THETA 
X (2) = A1/A0 

CALL TABLE (T,X,XOOT,C) 

WKIf1)=GEOH 



WK 

WKR 

WKR 



2)=21 
1) =A 1 
21 = 0.0 



WKR 
WKR , . 
FOR.'^A 



PORHAT 

FOnHAT 

RETURN 

END 



=A0 

(* YDO HAVE SELECTED A CIRCULAP. CONTRACT 
**FIRST CUESTION, WHAT IS THE LENGTH OF T 
(’ WHAT IS THE UPSTREAM DIAHETEH7M 
* WHAT IS THE OOWNSIHEAH LIAHETZR?*) 



ION. V 

HE CCNTRACTION?* 



) 



37 



nnnno( 



««*««*«* 

R ECTAM3U LAR ^CONTRACTION , 

REF, ASHRAE HANC3CCK, PAGE 33 . 34 , TABLE 3-5, 
TABLE INTERPOLATION 



C FITTING 22: 

mmm* **m *m* 

C 
C 

c 
c 



FITTING 5-1 



I * m*** *** * i 



SUBROUTINE FIT 22 (SCRL ,GEC!1 , WKI , ff KR) 
REAL WK’" ^ .i ^A 
INTEGER 



t*m*mm*mmm*******Mmm*mmQ 



,X,T,A1,31,A0 ,50,AREA1, AREA0,C,L, THETA 1,TRETA2, THETA 
xiix^vji:n SO aL •GECH,4'KX alOJT 
CldENSION WKI ] 2) , WKR ( 4) , T (55) ,X (2) ,XOUT (2) 

DATA T/8. 0,5.0, 

f 0. 0,10. 0,30. 0,55. 0,90. 0, 1 20. 0,150.0, 180. 0, 

► 1.0,2.0,4.0,6.0,10.0, 

► 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 , 0 . 0 . 

► 0.0,0.05,0. 05, 0.0 6, 0.1 2, 0.18, 0.2 4, 0.26, 

f 0.0, 0.05^0. 34, 0.07, 0.17, 0.27, 0.35, 0.41, 

0.0,0. 0 5,0. 04, 0.0 7,0. 18, 0. 28, 0. 3 6, 0. 42, 
f 0.0,0. 05^0. 05, 0.03, 0.19, 0.29, 0.37, 0.4 3/ 

4 RITE (6, 600) 

CALL nEADR(L,5) 

IF (L. IT. 0. 05) 1=0.05 

WRITE (6, 60 1) 

CALL r£ADR(Al,5) 

WRITE (6, 602) 

CALL nEADa(31,5) 

WRITE(6, 603) 

CALL bEADR(A0,5) 

WRITE (6, b04) 

CALL nEADR (BO . 5) 

THETA 1=1 1 4.5 9 1 56*ATAN ( (A 1- AO) / ( 2. 0 *L 
THETA2=1 14.59 156*ATAn]|b1-30) 



THETA=AHAX 1 (TH£TA1,THETA2) 
AREA 1=A1 *8 1 
AREA0=A0*B0 
X ( 1) =THETA 
X (21 =ARE A1/AR3 AO 
CALL TABLE (T,X,XOUT,C) 

WKI (1)=GE0H 
2 ) =22 
iUareai 



1/(2. 0*L 



ii 



600 

601 

602 

603 

604 




0.0 



=AREA0 



YOU HAVE SELECTED A RECTANGULAR 2 C NTRAC TICN . » 



N. V 
0NT13;3 



♦♦FIRST QUESTION, WHAT IS THE LENGTH OF THE CONTRACTION?*) 
WHAT IS THE LEAST UPSTREA3 CROSS- SECTION DIHE NSIO N? * )_ 
what IS THE GREATER UPSTREAH CRD S S- SECTIO N DIMENSION?* > 



WHAT 

rUhnAIf’ LAST QUt.b.j.ON. 

♦ * CRCS3-SECTICN DIMENSION?*) 
RETURN 
END 



S THE LEAST DOWNSIREA.1 CHC SS-S ECT IC N DIMENSION?*' 
OESTION, WHAI IS THE GREATER DCWNSTEEAM*/ 
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no( »n 



c 

c 
c 
c 
c 



FITTING 



23: SCREEN 



(«««« «««««««*««««««««««««« 



R£5 
CURVE FI 
FREE FLOW 



ASriRAE HANDBOOK^ PAGE 33.4 



TO tabulated 
A fiEA. 



DAT A / 



7-3 



******* 

2 , TABLE 3-7, FITTING . 
3ASEd on DDCT AREA AND SCREEN 



««««««««««««] 



*C 

C 

**** *Q 



600 
60 1 



t *********** 

SUBROUTINE FIT23 (SOR L.GEOa ^ WKI ^ WKR) 

REAL WKR, DUCTA.SCRNA, N,C 
INTEGER SORL.G WKi 
DIMENSION WKx (2)^WKR(4) 

WRITE (6. 600) 

CALL FEADR PUCTA,5) 

WRITE (6, 60 t) 

CALL FEADR (SCRNA,5) 

N=SCRMA/DUCTA 

C= ( ( ( (97 . 9 02 1* N) -9 2. 4 45) ♦N>32.0 66) *N-1 . 955 7) *N40. 02 5 
KI ’1) =GEON 
1=23 
I =DUCTA 
1 = 0.0 
=c 

|=DUCTA 

:r YOU HAVE SELECTED A SCREEN 
^ ’ **FIHST 2UESIICN, WHAT IS THE 

FORMAT(» LAST .2USSTICN, WHAT IS THE 

'aSTURii 
END 



OBSTRUCTION IN THE DUCT.’/ 
DUCT CROSS-SECTIONAL AREA7M 
FREE FLOW AREA OF. THE SCREEN? 
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FITTING 24: LOOVEB ENTRANCE 

***************************************** 

REF, HANDBOOK CF HYDRAULIC RESISTANCE, 
CURVE FIT TO DYNAaiC LOSS INFOR.*1ATION, 



****«««««««««***««««««««« 

IDEL’ CHIK 

NO FRICTION INLUDED 



««««««< 



I ««**«««*«««« 



600 

601 

602 

603 



SUESOUTINE FIT24 (S0RL,3E0H, WKI, WKR) 
HEAL DX, D3 ,N,D 0CTA,F. C 
INTEGER WKI,SORI,GZ:0« 

CI.^.ENSIDN 5JKI (2) , WKE (4) 

WRITE (6 , 6 00) 

CALL READP. (DX,5) 

WRITE (6.6J1) 

CALL REA0R(DB,5) 

WRITE (6,602) 

CALL R£ADR(N,5) 

WRITE {6,o03f 
CALL READR (DtJCTA, 5} 

F= N*0 3/DX 

C=62, 144*EXP (-4.47543 *F) 

WKI (1) =GEOi1 
> =2 4 
WKF |=DUCTA 




= 0.0 
=DUCTA 



FOFHAT ( 

► 

FORHAT ( 
FORMAT ( 

¥ 

5ETURN 

END 



YOU HAVE SELZC'IZd A LOUVERED ENTRANCE.*/ 

**FI5ST QUESTION, WHAT IS THE DISTANCE ACROSS THE » 
LOUVER OPENINGS?’) 

WHAT IS THE DISTANCE 3ETWSEN THE LOUVERS, USE THE ’ 
CLOSEST DISTANCE.*) 



HOW HANY OPENINGS ARE THERE 3ETWEEN THE LCUVEFS?*) 
LAST QUESTION. WHAT IS THE AREA OF THE DUCT JUST’/ 
INSID- THE LOUVER ENTRANCE?’) 



/ 



/ 

/ 
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I 



20 



FITTING 25; IKL2T rlLTZR 

HEF. NAVSEA INLZT DESIGN HANDBOOK 

DEFAOLT SYSTEM, DD963 TYPE FILTEH, CURVE FIT TC DATA 
CPTICNAI FILTER, POWER CURVE FIT IS MADE 10 PRESSURE LOSS DATA 
BASED CN FACE TELOCITY ON FILTER. DATA SUPPLIED BY USER. 



SUBROUTINE FIT 2 5 ( SCR L , G EOM, WKI, 7KR) 

REAL WKR - AREA//EI,DELP,Xi. YY.SUMX,SaMY,SaMX2,S0MY2, SUMXY,A, B 

INTEGER oCRL,i£Cft.WKI,S,ANS,i:ES,:,NPTS.NO 

DIMENSION SKI (2),5kE(4) ,7SL(10) ,DEL? (10) ,XX (10) ,YY(10) 

DATA YES/* YV, NC/* NV 

'JC T ' T’T n 



WRITE (6, 600) 

READR jAREA,5) 



((ANS. SC. YES) .OR. ( ANS. SQ. NO) ) GO TO 6 



CALL _ . 

WRITE ( 6. 6 0 1 ) 

READ (5,o02,cND=4,ERR=a) ANS 

*■ (]ans. sc ‘ 

REWLND 5 
WRITE (6,607) 

GO TO 1 
CC NTINOE 

IF (ANS.EQ. YES) GO TO 30 
WRITE (6, b03) 

CALL REAOI (NPTS,5) 

DO 10 I=1eN?T5 
WP ITE (6 ,604)^ I 
CALL READR J7EL (I) , 5) 
WRITE (6.6051 I 

.5) 





CALL SEADR ' 


(DELP (I) 




XX (I) =ALOG 






YY l5 =AL0G 


(CEL^ (I 


10 


CONTINUE 





40 



600 

601 

602 

603 



SUMX=0.0 
SUMY=0.0 
SUf1X2=0. 0 
SaMY2=0. 0 
5UMXY=0. 0 
DO 20 I=1,NPTS 

SUMX^SOMX^XX (I) 

SOMY^SUMY^YY I) 

SDMX2 = SaMX2>XX{I) ♦♦2 
SUMY2 = SUM Y2 + YY I) ♦ 

SaMXY = S0MXY4XI (I) *YY (I) 

CONTINUE 
N= FLO ( N PTS ) 

3= (N^SUI XY-5 0M X*S0MY) / (N^S0aX2- (SUMX**2) ) 

A=EXP (SUMY/N-3*SUMX/N) 

WRITE (6. 606) 

GO TO 40 
A=0.0167 
3= 1.6287 
WRITE (6, bO 6) 

CCNTINUz: 

WKI 1 ) =GEOM 
WKI 2) =25 
W K R I 1 ) = A R E A 
WKR (2) =A 
WKE I 3)=B 
WKR (4i =AREA 

FOEriAir YOU HAVE SELECTED THE INLET FILTER . */ 

♦ * ♦♦FIRST QUESTION, WHAT IS THE TOTAL FACE AREA OF THE FILTER?*)^ 
FOEMAT(* DO YOU WANT TO USE THE DD963 TYPE FILTER IN THE DRY COND 
♦XTICN y/N)?») 

FORMAT (A 1) 

format]* the CPERATING CHARACTERISTICS OF YOUR FILTER WILL BE*/ 

♦* DEFINED 3Y A POWER CURVE FIT OF THE FORM:*// 

♦* DELTA PRESSURE = COSFA ♦ FACE VELOCITY ♦♦ COEF3 *// 

APPLIED TO PERFORMANCE DATA TO BE INPUT BY THE USER.'/ 
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♦* HOW MANY CATA POINTS DO YOJ HAVE (1 TO 9)?’/ 

DO NOT POT IN THE POINT (0.0,0,D).M 

FACE VELOCITY = ? (F22T PER SECOND) 



604 


FOEMAT 


o05 


FOFMAT 


60b 


FORMAT 


607 


FORMAT 




RETURN 




END 



DELTA PEESSOPE 
NO MORE iJE STICNS; M ' 
YOa MOST ENTER A LETTER 



(INCHES H20)») 

IN THE BRACKETS, ’ ) 
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c ♦* * * 

c 

c** 

c 
c 
c 
c 



•3AFF1Z TYPE 



«««•«*•««**«*«««****«« 1 

FIITIIiG 26; 5ILZNC2R aai: 

**«**«*»«* mmmi 

REF. NAVSHA INLET DESIGN HANDBOOK 
COaPOSIIE LOSS COEflOIENT BASED ON 
FRICTION AND A SODDEN EXPANSION 






■ **«**«] 



A SODDEN CONTRACTION, 



(*#***«*«««*«« 

SOEHO 'JUNE FIT26 (SORL.GECN, WKI, NKR) 

HEAL WKR , G -T^L CX, A 0 , A 1 , D H, H, C 1 , C2 , C3 , C, N 
INTEGER ^OnL.GicS, V^I 
CiaENSIDN WKI (2) , WKR ( 4) 

WHITE (0. 600) 

CALL r.£ADa(G,5) 

WRITS (6- 60 t) 

CALL HEiDEfx^S) 



WRITS (6,601 



(6,60 2) 
REA D R (L , 



5) 

5) 



CiLL 

WRITS (6, 60 3) 

CALI RSADR (H, 5) 

WRITE (b, oO 4) 

CALL nEADRfCX,5) 

WRITS (6, o05) 

CALL RSADH (N , 5 ) 

AO=CX*H 

A1=N*G*H 

DH = 2. D*G*H/(G>H) 

P= (CX-N*G) /]2. O^N) 

SODDEN CONTRACTION 

C 1=0. 114 1 ♦ ( (E/DH^O. 1) *♦ 14. 440 5) • (1 .0- A 1/AO) 

FRICTION 

C2=0. 05*L/DH 

SODDEN EXPANSION 

C3 = 0. 47* ri .0-N*G/CX)_**2^0.02 

CCNPOSITi COEFICIENT 

C=CUC2^C3 




600 FCHMAT(» 



YOU HAVE SELECTED 
EACH BAFFLE HAS A 



60 1 
602 

603 

604 

605 



FORMAT 

FORMAT 

FOHaMAT 

"'foLmat ( 

^FollMAT ( 
5ET0RN 



A MULTI-BAFFLE TYPE SILENCEE.V 

STREAMLINED SHAPE. IT IS THE T 

USED IN THE INLETS OF THE DD^63.V 

♦•FIRST DUSSTION, WHAT IS THE GAP BETWEEN THE 3AF 

WHAT IS THE THICKNESS OF THE BAFFLES?') 

WHAT IS THE LENGTH OF THE BAFFLES?’) 

WHAT IS THE DIMENSION OF THE BAFFLES PARALLEL TO 



YPEV 
FLES? ' ) 



THE GAP 

WHAT IS THE DIMENSION OF THE MAIN DUCT ACROSS THE GAPS?' 
LAST QCESTICN, HOW MANY GAPS ARE THERE?') 



lOonnnnn 



Q******>****** «* ♦***#*♦♦♦*• *•***• 

C FIITING 27: GAS rURE INE aOC'JLE 

(^*««*«4*«******4i*«* 

c 
c 
c 
c 



i««* **** «« Mm*******mmmmmm***M 

C 

**«*****«♦ «««*4t**«*«***«**««««**(^ 

REF. GENERAL ELECTRIC lATA, LOSSES IN THE MODULE EASED ON THE 
MASS FLOW THROUGH THE MODULE. NO ^UESTIGNS ASKED HERE. THIS 
SUEROUTINE JUST LOCATES THE MODULE. NOTE THAT THE MODULE IS 
THE FLOW PATH NCT THE ENGINE. LOSSES WILL 3E IN THE COOLING FLOW, 

mmmmm m m -^ ******** **^* *********************** m** mm* * m mm* m *q 

SUEROUTINE FIT 27 (SORL^GEOM, WKI, WKR) 

HEAL HKR, AO 

INTEGER SORL.GECM, WKI 

DIMENSION WKI (2) ^ WKH (4) 

WRITE (6.600) 

WKI (1) =GEOM 
WKI 2)=27 
= 1.0 
= 1.0 
= 1.0 
= 1 - 0 

YOU HAVE SELECTED THE GAS TDR3INE MODULE AS A PART OF* / 
THE COOLING FLOW PASSAGE. NO OUESTIONS, JUST NEEDED*/ 

TO KNOW WHERE YOU WANTED THE MODULE.*) 




600 F0R«AT(* 



RETURN 

END 



94 



non 



c** * * 

c 

c** 

c 
c 
c 
c 



10 

20 

30 



40 

50 

60 



70 

30 



FITTING 28: WASTE HEAT 5ECCVERY 30ILEH r 

♦ ****3»*«* ********** ***«**«*******************««;«***«***«««**^««««^g 

REF. EXTENDEO SORFACE HEAT TRANSFER, D-O- KERNS AND A.D. KRA'JSS 
PAGES 582-589 

PRELiaiNARY DRAWINGS ON THE RACER SYSTEM 



I « 4i *« ] 



t *** ^ 



SUEECOTINE FIT28 (SORL ,G£OM, WKI, WKR) 

REAL WKR, D 7, DE, ST, N, T I, 7PA CT , TEST , C? RI M E, A R EA 
INTEGER SORL,GECM,WKI .ANS,STAG,INLINE,YES NO 
CI-ENSION WKI (2) /WKF.(4) 

DATA STAG/’S I V/ YES/* Y *// NO/*N* / 

WRITE (6 eoOO) 

READ (5, oO 1,^ND=20,E8 R = 20) ANS 
I? ( (ANS. 2Q.YES) .OR. (A NS. EQ. NO) ) GO TO 30 
REWIND 5 
WRITE (6, 602) 

GC TO to 
CONTINUE 
AREA = 68. 75 
7FACT=1. 35095 
CP5IWE=35. 02027 
DV=0. 03987 

IF (ANS. £Q. YES) GO TO 80 
WRITE (6 , 6 03) 

CALL FiADR (07,5) 
write; (6 ,604)^ 

CALL riADR (DE,5) 

WRITE (6 , 605) 

CALL F^ADR (iX,5) 

WRITE (0,6 06) 

READ (D,o0 1,^ND=50,ERR=50) ANS 
IF ( (ANS. EQ. STAG) .OR. (ANS. EQ. INLINE) ) GOTO 60 
REWIND 5 
WRITE (6, 602) 

GO TO 40 
CONTINUE 
WRITE (6,6 07) 

CALL FEADR (N,5) 

WRITE (6,608) 

ADR ]SL,5) 



CALL 



WRITE (6,609) 

CALL READR iTL,5) 

WRITS (6,6 10) 

CALL RiADH (XL, 5) 

FIND HIGHEST vtiCC 
VFACT = ST/(ST-DE) 

IF (ANS.EQ. INLINE) GO TO 
TEil= (ST>DE) /2.0 
SD = SC?.T(SL**24 (ST/2.0) ♦♦2) 

IF (SD.LT. TEST) 7F ACT= ST/ (2 . 0* (SD-DE) ) 

CCSTINUE 

AH EA = TL*TX 

CPFIME^f (DV/ST) **0.4) * ( (SL/ST) *♦0.6) *SL*N/D7 
CONTINUE 



:Y of THE TU3E SANK 



70 



wk: 



WKI 2) =23 



WK? 

WKR 



WKR 



600 FOfiiiA'ir 



1)=GEOa 



1) =AREA 

2) =7FACT 



WKR i;3)=cpaia£ 



4 =D7 



60 1 
602 
603 



FORMAT (A 1) 
FORMAT?* 
FORMAT ( 



YOU HAVE SELECTED A WASTE HEAT 30ILER. DO YOU WANT TO*/ 
USE THE PROPOSED RACER DESIGN DEVELOPED 3Y SOLAR */ 
TURBINES (Y/N) ?* ) 

YOU MUST USE A LETTER IN THE BRACKETS.*) 

A NUM3EH OF QUESTIONS ARE RECUIRSD ABOUT THE TUBE V 
BUNDLE GEOMETRY TO OBTAIN LOSS CO EF FIC I ENTS. * / 
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60 4 


FORMAT ( 

♦ 

♦ 

♦ 


605 


FORMAT ( 

♦ 


606 


FORMAT ( 


607 


FORMATS 


b03 


FORMAT ( 

♦ 


609 


FORMAT ( 


610 


FORMAT ( 

RETURN 

END 



aSE CCMSISTZHT UNITS (FEET).’/ 

**FIEST QUESTION. WHAT IS .HE VOLUHETHIC HIDRAULIC ’/ 
CIAIETEfi? IF X05 DO NOT KNOW 0.040 FEET IS A GOOD’/ 
GUESS FOR THIS APPLIC ATION . * ) 

WHAT IS THE DIAMETER OR EQUIVALENT DIAMETER OF A »/ 
FINNED TUBE IN THE BUNDLE ]FEET) ? IF YOU DC NOT’/ 

KNOW, 1,4 TIMES THE BARE TUBE DIAMETER IS A GOOD’/ 
GUESS.’) 

WHAT IS THE TUBE SPACING IN A BANK OF TUBES (FEET)?*/ 
TUBE CENTERLINE TO TUBE CE NT ERLI N E. * ) 

ARE THE TUBS BANKS STAGGERED OR INLINE (S/I) ?*) 

HOW MANY TUBE BANKS ARE THERE ?’) 

WHAT IS TEE DISTANCE BETWEEN THE TUBE BANKS ?•/ 

FROM THE PLANE OF A TUBE CENTERLINE TO TUBE CENTERLINE’/ 
PLANE OF THE NEXT BANK. •) 

WHAT IS THE DUCT DIMENSION PARALLEL TO THE TUBES ?’) 

WHAT IS THE DUCT DIMENSION ACROSS THE TUBES ?*) 
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c 

c** • ♦ 

c 



c 

c 

c*** 



Flirirc 29 : AE50PT EXIT 

«««*««««*«««*«*«««**«« «*«««««*«««««««««« mm mm mmm*mmmmmmmmi 

REF. ASHRAE HANC300K, PAGE 33.29, TA3LE 3-2. FITTING 2-1 
THIS SHOULD ALWAYS 3S USED FOR THE LAST FIIxING OF THE ENGIS: 
EXHAUST BRANCH, NODE SIX. IT HAY 3£ REQUIRED FOR THE COOLING 
FLCW IF IT GOES DIRECTLY TO THE ATHOSPH^EE (CLASS U2) . 

«*««**«*«**««««*«««*««««««*«*«««««««««««««**«« r ' - ' 

SUBROUTINE FIT 29 (SORL,GECH, WKI, WXR) 

HEAL WKH.AREA 
INTEGER SCRL.G EOM, WKI 
DIMENSION WKI (2) , WKR ( 4) 

WRITE (6,600) 

CAIL^READR (AREA, 5) 



►C 

C 

C 

C 

C 

c 



WKI ( 1 
WXI (2 
WXE (1 
WKR /2 
■ (2 



600 



WKR 
WKH 
WKR (4 
FORMA 



=GEOM 
= 29 
=AREA 

==3:3 



3 =1 .0 



C 

Qmmmm 

C 

C 

c 

c 

Qmmmm 



RETURN 

END 



=AREA 

(’ YOU HAVE SELECTED AN ABRUPT EXIT TO THE AIMOSPHEHi 
• **JUST ONE QUESTION, WriAT IS THE AREA OF THE EXIT 



V 

PLAN E? 



FITTING 30: FITTING OF YOUR CHOICE, NOT ON MENU 

NO REFERENCE. THIS IS INTENDED TO BE A CATCH ALL FITTING FOR 
THOSE FITTINGS NO! LISTED ON THE MENU. IT INPUTS A CONSTANT 
COEFICIENT FOR MULTIPLICATION TO THE PRESSURE VELCCITY. THE 
VELOCITY IS COMPUTED THROUGH THE AREA INPUT REQUESTED. 

SUEEOUTINE FIT 30 (SORL , GEOM , /« KI, WKR) 

REAL WKR, A I. C, AC 

TiT'TrT’m ^ r/' 



c 

c 

c 

c 

»*c 



INTEGER SoRL.GrCM, WKI 
DIMENSION WKI (2) ,WKE(3) 
WHITE (6, 6001 
CALL ?EADR(AI,5) 

WRITE (b, 60 t) 

r.EA0Ric,5) 



CAi.1. ^ 

WRITE (6, o02) 

CALL ?EADR(AO,5) 



WKI 
WKR 1 



WKI(1)=GEOM 
= 30 
= AI 

3|==3-° 

4 =AO 



WKR 

WKR 

WKR 



oOO FOEMAt( 



60 1 
602 



FORlMAK 



FORMAT ( 

RETURN 

END 



SINCE THE PROGRAM IS LIMITED IN THE NUMBER OF FITIINGSV 
FOR WHICH IT CAN PRODUCE PERFORMANCE C H AH ACT EF 1ST ICS * / 
THIS OPTION ALLOWS THE USER TO INPUT CHAR ACTE RISTICSV 
OF A FITTING NOT LISTED.*/ 

•♦FIRST QUESTION. WHAT IS THE CH A R ACTE EISTIC AREA OF*/ 
THE FITTiNl? THROUGH THIS AREA THE FLOW PRODUCES*/ 

A VELOCITY USED TO CALCULATE THE VELCCITY PRESSURE. *’ 
WHAT IS THE MULTIPIEH. CO, USED IN IHE*/ 

VELOCITY PRESSURE EXPRESSION:*// 

?=C0*RHO • (VELOCITY** 2) / (2. 0*GC) ? * 1 

LAST QUESTION, WHAI IS THE OUTLET AREA^*) 



') 



97 



»#«***«* «*««««***«*«««(^ 

C liELE ISrSEPOLATION SaSRCUriHE: PR00UC2S 7ALUE FF.Oa 2-D lAcLE 

C INPUT A ONE DiaiNSIONAL ARRAI "T", CONTAINING THE FOLLOWING 

C INFORrtATION: NUMBER OF X'S, NUMBER OF I'S, THE X'S, THE Y* 3 , THE 

TABLE STARTING WITH THE SMALLEST X-Y VALUE INPUT BY ROW 



C 

C INCREASING X VALUES 3 ITH ROWS INPUT 

^«««««*«*«*«««««««*««««««««**«** 

SUBROUTINE TAB LE (T, X, XOUT,?F) 

C INPUT: :,Z, OUTPU T:XOUT,FF 

DIMENSION T(200) ,X (2) , NN (2) , XOUI (2) , F (1 00) 
REAL NEV 

INTEGER V(2) ,XINIT(2) ,YINC(2) 

NXI=1 



WITH INCREASING Y VALUES. 

*«* * «**«« ««««*«* ] 



ir= 



=3 



MN 
MN 

isrii: 

LOOP DET£R*1INES STARTING POINTS 
DO 20 1=1,2 



aRHAY FOR INTERPOLATION 



.'C=NXI+T(I)-1 
IF (X (I). GE.T 
IF X CUT OF 
PCSSI3LE- 
XO UT^I^ = 0 



(NXI) .AND.X (I) -LE.r (K) ) GO TO 32 

HANGk, INFOR.1 USER iHAT TABLE INTERPOLATION IS NOT 



GO TO 999 
32 XOOT(I) = 1 
J=NXI 

2 1 L= (J + K) /2 

IF j (X (I) -T (J) ) ♦(X(I)-I(D) .GT.O.) 

GO^TO 24 
23 J = L 



GO TO 23 



24 



25 

26 



20 



IF ( (K-J) . GT. 1) GO TO 21 
L = K-NN (I) /2 

. iL NXI) GC TO 25 



IF (L. 






26 



IF L, 

GO TO 
L=NXI 
IpIQ+T(I) ♦ (L-NXI) 

IfIi. NE. 1) IA = NN (I) 
YINC (I) = (T (I) -lA) 
XINlT[i)=L 
hXI=NX>T (I) 

J1=1*T (I) 

CCNTINOE 



NX:<=NN (1) 

INTERrOLATE IN FIRST DI3ENSI0N 

V (1) =NXX 

DO 1 1 J=1 ,NXX 

F (J) = NEV (X (1) .X, XI NIT (1) ,T-IQ,L) 
IaNTEHPOLATS in second di:isnsion 
1 1 IQ=IQ*YINC (1) 

.1=NN ( 1) 

FJM^V (2)) =NE7 (X(2) XINIT(2) ,F, 1,N) 
FF = F (2) ) 



999 



RETURN 
FF=1000. 0 
RETURN 
END 

FUNCTION 
FUNCTION 
FU NOTION 
STARTING 



TO RETURN INTERPOLATED 7AL0E FR01 TABLE 
NE7 (X,AX,NX, AY, NY,N) 

NE7 PHRFOENS AN ’’N" POINT INTERPOL ATICN FOR X 
AT ABSCISSA ARRAY AX (NX) AND ORDINATE ARRAY 



op 



uuuuuu 



C AY(NY)^ WITH THE THTERPOLiTED ViLJS EETURNED IN NE7 

DI-iENSlOa iX (1) ,AY (1) ,E (100) 
aSAL SE7 
DO 10 J=1, H 

10 

be 20 J=1,N1 

N J=N-J 

DO 20 1= 1 , NJ 
KI=MX^I-1 

20 -?(-)) MX -AX (KI) )/(AX (KI>J) -AX (KI) ) ♦F (I) 

^ N£V=r(1) 

PETOHN 

HMD 



QQ 



c 

c 

c 

c 

c 



c 

c 

c 



10 

12 

20 

30 



40 

dOO 

601 

602 

603 



^ «4c« **«««**««4 e«*« rn^rn^mm**************** m ** m** «**«« i 

LCAD SUBROOTINE; PLACES FITTING I NFOa.l ATI 0 N IN A STORAGE AR2AY 

S'JEROOTINE ALSC CHECKS FOR AREA CONTINUITY IN A 3HANCH. IF THE 
THE PRESENT FITTING AND THE LAST FITTING DO NOT HATCH A EARNING 
IS GIVEN TO THE USER, AN OPPORTUNITY 10 NOT LCAD THE PITTING 
IS PROVIDE! AND THE USSR IS RETURNED TO THE HENU. 

SUBROUTINE LOAD {W-GSOH, WKI, NKR ’NORKI /NORKP.) 

SEAL «KR,yORKR,TESTR, LASIA.THISA 

INTEGER 5, WKI ,WORKI,A NS, YES . NO, GSOH , TESTI . T Y PE , L AST YP 
DIHENSIDN WKI (2) (WK^(3) , HORki (20 J , 2) , HORKn (200 , 4) 

DATA YES,NO/»Y’,'NV 
IF (H- EQ. 1 j GO TO 10 
TYPE=WORKI (H,2) 

LASIYP=yORKI (H-1,2) 

SOME FITTINGS MAY NOT EXHIBIT AREA CONTINUITY 
IF (TYPE. EQ. 13) GO TO 10 
IF(TYPE.EQ.15[ GO TO 10 
IF 1‘LASTYP. SQ.23) GO TO 1U 
IF TYPE. EQ.23) GO TO 10 
IF (LASTYP. EQ. 25) GO TO 10 
IF ITYPE. EQ.25) 00 TO 10 
IF LASTYP. EQ, 27) GO TO 10 
IF TYPE. EQ -27) GO TO 10 
IF fLASTYP, 10,23) GO TO 10 
irjTYPE, EC . 23 ) GO TO 1 0 , 

-TEST THE INTERVAL BETWEEN FITTING ID NUMBERS 
TESTI = WKI (2) -WCRKI (H- 1 , 1 )_ 

CHECK TO SEE IF FITTING IS THE START OF A BRANCH 
IF fTESTI.GT, 1)_ GO TO 10 
LAST AREA, EXIT FROM FITTING 
LASTA=WORKR(M- 1,4^ 

IF (LASTYP. EQ, 7) LASrA=WCRKH (M-1, 1) 

THIS AREA, ENTRY TO FITTING 
THISA=WKR (1) 

TESTR=A8S j THIS A-LASTA)/TH ISA 
IF (lESTR. LT. 0. 05) GO TO 10 
WRITS (6.600) 

WRITE (5.601) 

READ (5,602,END = 12,Ea R=12) AN S 
IF ( (ANS. EQ. YES).OR, ( ANS.EQ.NC) ) GO TO 
REWIND ? 

WRITS (6,603) 

GO TD 10 
CONTINUE 

IF (ANS. SO, YES) GO TO 30 
GECM=GECM-1 
M = M-1 
GO TO 4 0 



20 



iOEKI (M, 1 



WCEKI M,2'i =WKI (2i 
ROF.KR (M, V =WKR 
WCRKR (M, 2 1 =WKR 



WCRKH (M, 3 
WORKS (M, ‘ 
CC NTINUt 



=WKI (1 



=WKR 3 
=WKH (4) 



CALL FRTCMS( • CIESCRN M 

FCRMAT(//’ WARNING, AREA CONTINUITY BETWEEN THIS FITTING AND*/ 

♦ • LAST FITTING IS OFF BY AT LEAST FIVE PERCENT.’//) 

FCRMAT{’ DO YOU WANT TC ENTER THIS FITTING (Y/N)?*) 

FORMAT A1) 

FOHMAT(’ YOU MUST ENTER A LETTER INDICATED IN THE BRACKETS.’) 

RETURN 

END 



on 



onnonoi 



I 

I 



c 

c 

c 

c 

c 



10 

600 

601 

602 

603 



c 

c 

c 

c 

c 



10 



20 

30 

uo 

600 

601 



DUCI DATA FIL2 CUTPOT SU3R0(JTINS 



-RITES THE SYSTEM ARRAYS WORKI AND WOEKR TO THE DOCT DATA FILE. C 
ALLOWS THE USER TO SERIALIZE EACH FILE CREATED. C 
♦WAFNIN3* WRITES OVER OLD FILES, SAVE THS.1 ONDER A LIFERENT NA:iE.C 



S03ROOTINE 3 0.1CUT (WORK I, WORKR,.1) 
REAL WORKH 

INTEGER WOHKI, SERIAL 

DIMENSION WORKI(200,2) , WORKS (20 0 , U ) 

-RITE (6.600) 

CALL READliSERIAL.5) 
write (3,601) SERIAL 



ETE (3 , 

WRITE ]3i602j M 
DO 10 1=1, M 

WRITE (3, 603) I.WORKI (1,1) .WORKI (I , 2 ) , WORKR (I , 1) ,WORKR(I,2) , 

♦ WORKR (1,3) ,-ORKR (I, 4) 

CCNTINOE 

REWIND a 

POEMAT(’ WHAT SERIAL NUMBER WOULD YOU LIKE TO GIVE THIS DOCT DATA 

♦ FILE?’/’ YOU MAY USE UP TO A SIX DIGIT INTEGER NOMBER.’) 

FORMAT (16) 

FORMAT (13) 

FORMAT [I3,3X,I6,3X,I2,3X,F10.4, 3X,F10.4,3X,F10.4,3X,F10.4) 

RETURN 

END 

«*««««-«««««« ««««««««« ««-«««««««««««««««««««««»«««*«««««««««««««««^ 

REAL NUMBER REAL SUBRCOTINE: FREE FORMAT C 

PREVENTS THE INADVERTENT ENTRY 0? NULL DATA (HITTING THE RETURN C 
KEY WITH NO ENTRY) AND INCORRECT DATA, THIS ROUTINE IS USED. C 

IT ALLOWS FREE FORMAT INPUT. IWO NULLs KILLS THE PROGRAM. C 

««««»««««*««««««««*««««««««*«««««««««««« ««««««*««««««»«««»««««««««(; 

SUSROUTINE REALR (ANSR,FD) 

REAL ANSR 

INIEGER COUNT, FL 

COCNT=0 

CCNTINOE 

CCUNT=CDUNT>1 

IF (CCUNT.lt. 3) GO 10 20 

CALL 5RTCMS (’CIRSCRN ’) 

WRITE (6,600) 

GO TO 40 
CONTINUE 

READ (FD,»,ZND=30,SRH=30) ANSR 

HSTOP.N 

REWIND FD 

WRITE (6, 60 1) 

GC TC l5 
CONTINUE 
SIC? 

FORMAT (////’ PROGRAM KILLED - TWO NULL STRINGS ENTERED!’/) 

FORMAT i’ WARNING: NULL STRINGS ARE NOT ALLOWED, ENTER A NUMERIC 

♦AL VALUE. * ) 

END 



ICl 



I *««**«««»«**«*«»««**«1 



(^♦<i********^»* mm***********^****** 

C INTEGZH fl£AD SUHHOariNE: FHEE F0R.1AT 

C PREVENTS THE INADVERTENT ENTRY OF NULL DATA (HITTING THE RETURN 

C KEY WITH NO " 

C IT ALLOWS ?Ri 



C 

c 

c 

c 

c 

c 

c 

c 

c 



ENTRY) AND INCORRECT DATA- THIS RCUTINE IS USED T 
iZZ FOrtHAT INPUT. TWO NULLS KILLS THE PROGEAM. 



10 



20 



30 



40 

600 

601 



SUcHOUTINE REAEI ^ANSI,FD) 

INTEGER -wUNT, ANSI.FD 

C C u N T =0 

CONTINUE 

CCUNT=COUNT^ 1 

I? (COUNT. LT. 3) GO TO 20 

CALI FHTCHS (’CLHSCRN *) 

WRITE (6- 600) 

GO TO 40 
CONTINUE 

READ (FD, ♦,END=30,£RR=30) ANSI 

EETORN 

REWIND rO 

WRITS (6-60 1) 

GO TO 10 
CONTINUE 
STCP 



»»****«« *»^**»♦******»<^♦****«****^2 



FORNAT (////’ PROGRAM KILLED - TWO NULL STRINGS ENTERED!*/) 

FORMAT ]* WARNING: NULL STRINGS ARE NOT ALLOWED, ENTER A NUMERIC 

♦ AL VALUi. ’ 1 



600 

601 
60 2 



►AL value. 

END 

Oi>E?.ATING CONDITIONS INPUT SUBROUTINE: TEMP, PRESS, HUMIDITY 

SUBROUTINE TO INPUT THE FOLLOWING PARAMETERS: 

AMBIENT TEMPERATURE (DEGREES ?) 

AMBIENT PRESSURE (PSIA) 

RELATIVE HUMIDITY (GRAINS PER POUND MASS DRY AIR) 

THE PROGRAM COULD 3E MODIFIED TO ACCEPT RELATIVE HUMIDITY (%) AND 
CONVERT IT TO GRAINS REQUIRED FOR USE LATER IN THE PRCGFAM. THAT 
MODIFICATION SHOULD 3E ACCOMPLISHED HERE. 

^ ^^* *************** ** *T^***m i 

SUcRCUTINE OPCCND(TO, PO, HUMID) 

REAL TO, PO. HUMID 
WRITE {6,o00) 

CALL RZADR(T0,5) 

WRITE (6-o0 1) 

CALL -lEiDR(?0,5) 

WRITE (o , 60 2) 

CALL READR (HUMID-S) 

CALL FRTCMi ("ClSsCRN ») 

?ORMAT(* THIS PORTION OF THE ?5 



C 

C 

c 

c 

c 

c 

c 

c 

*c 



PROGRAM INPUTS THE ENVIRCMENTAL CCND 



♦iriCNS.*/* WHAT IS THE AMBIENT lEMPEFATURE (DEGREES FI?*) 
FORMAT (’ WHAT IE AM3TRN'r PRFSS.'IPH rP3TAV?M 

:rmat 



RETURN 

END 



IS THE AW3IENI PRESSURE (PSIA)'?*) 

WHAT IS THE RELATIVE HUMIDITY (GRAINS PER POUND AIR)?*) 



1C2 



ooonn 



* * * 



C** * 

10 

20 

30 



40 

600 

601 
6 0 2 

603 



PO^EH POINT INPUT SU3 RC UTI N£ ( HC R3 EPC W£ , PCVER TUF3INE EPEZD1 
DCES A PRELININART TEST TO INSURE TORQUE II.MITS APE MOT EXCEEOEO 
FOR THE OPERATING POINT REQUESIEO. USER IS REQUESTED TO SEIECT 
A TIFFERENT OPERATING POINT IE THAT IS THE CAS!. 



«*««*««««««« ******** > 



I ««*« ««««««*«««*««««« ] 



SUHHQUTINE ? WR ?T f HP . N PT - TO -PO) 

■ , ?0 ,T(J,t5c,P2c, 5 ETTA, THETA, HPTP 



REAL HP.NPT-irw, 

WRITE (b - 6 OO ) 

CALL RtA6R(H?,5, 

WRITE (6-601) 

CALI R^DE (NPT- 5). 

IE ( (NPT. GE, 1 200,b) .AND. 



( (NPT. 

w'riTE (6,603) 
TO 2 0 



(NPT. LE. 3600. 0) ) GO TO 30 



G C 

CONTINUE 

HPT?= (5177.5-7.0527*T0) (8. 3275-0 . 00 12* TO) *N?T 

I? (HP.LT.HFTP) GO TO 40 

G TO 1 J 



CONTINUE 

CAIL FErc:iS(» CLPSCHN M 

FOfiSATC INPUT THE ?Ot?ES SETTING YOU DESIRE.*/ 

♦ * **WHAT IS THE 30RSEPC17EH?* ) 

E05HAT(* **WHAT IS THE POWER TORBINc SPEED (rPH)?’) 

FORHAI * HORSEPOWER IS NOT ON THE PERFORMANCE HAP, PICK A LOWER □ 
♦CRSEPCWEE. * 

rOR!1AT(* POWER T0R3INE RPN I'S NOT REASONABLE. IT SHOULD BE*/ 

* 1200- TO 360 0 RPM. RE-ENTER.*) 



RETURN 

END 



1 n:? 



nonno 



non non on nnnnnnnnooo 



e:igi:iz subrootine: co.ipaizs opee^ting point ?cr given conditions 

REF. 7L.'i2500 .1ARINE GAS TGRBINE PERfCRMAMCE DATA, PREPARED BY 
GENERAL ELECTRIC COMPANY MARINE AND INDUSTRIAL PRCJECTS 
DEPARTMENT, NUMBER MI D- I D- 2 50 0- 8, REVISED NOVEM3ZR 1978. 

ENGINE PERFORMANCE IS REPRODUCED 3Y STORING A STANDARD CONDITION 
OPERATING MAP AND APPLYING CORRECTIONS FOR OFF-STANCARD 
OPERATING CONDITIONS. MAIN INTEREST IS TO OBTAIN N2,:78, AND T3. 
SFC.T54.AND NG ARE ALSO PROVIDED. 

******************** m***m***Mm*Mm*m*****m**mm0mmQ 
SUBROUTINE ENG IN E ( IN LOSS , EXLOSS , TO , ? 0 , H UM I D , BHP , NPT,N2C,V8C, 

^ P8C,T3C,SFC,T54C,NGC,OFF) 

REAL T0,?0 .HUMID.INLO SS, SXLCSS, 3HP , N PT , TIC . P2C , D E IT A, T 8 ETA . EHPTP , 

♦ BHPE, NPTE,42S ,N 8S, I9S, P8S, SFC3, 154 S, NG S ,NGC , '^2C, w 8C ,T3C , P8C , 

> SFC,x54C 

INTEGER OF? 

T2C=T0+459.67 

P2C=P0 

DELTA IS THE PRESSURE COSECTION, THETA THE TEMPERATURE CORRECTION 
INLET AND EXHAUST LOSSES ARE A SEPARATE COREECIION 
DEITA=P2C/14. 696 
THETA = T2C/51 8. 67 

CORRECT DESIRED BH?, N PT TO STANDARD CONDITIONS, INPUT TO ENGINE. 

3HPE=3HP/ (DELT ASSORT (THETA) ) 

NPTE = NPT/SQRT (THETA) 

CALL LM2500 (BHPE.NPTE, V2S,N8S,T3S,?8S,5FC3, T54S, NGS,OFF) 

IF (OF F.GT. 0) GC TO 20 

CORRECT STANDARD ENGINE PARAMETERS TO OPERATING CONDITIONS. 

NGC=CFNG (NGS, THETA, INLOSS, EXL OS S, HUMID) 
N2C=CFW(H2S,THETA,DELTA,INL03S,EXL0SS,HUMID, NGC) 

:<8C = CFN]w8S, THETA, DELTA, INLOSS, EXLCS 3 , HUMI D , NGC 
T8C=CFT3 (T8S, THETA, IN LOSS, EXLCS3 , HUMID, NGC) 

?8C=CFP8 l?SS , DELIA, EX LOSS) 

SFC=SFCS 

T5 4C = C?r 5 4 (T 5 4 S, THETA , I NLOSS , EXLCSS , HU MID, NGC) 

20 CCNTINUE 
RETURN 
END 

C FUNCTION TO CORRECT GAS GENERATOR SPEED 

FUNCTION CrNG (NG.IHET A, I N LOSS , EXLOSS , HU MID) 

REAL THETA , IN LOSS, EXL CSS, HUMID, NG, AD Sip I, A DEIPE, ADELH, 

♦ CF.CFNG 

IF (NGC. LE. 9100.0) GO TO 10 
IF (NGC. GE. 9200 - 0) GC TO 20 

ADELPI=0.000733^(NGC- 9100. 0) ♦ 0 . 00 05o 7/1 00. 0 
GO TO 30 

10 ADEL?I=0.000733 

GO IC 30 

20 AD£LPI=-0.0013 

30 CCNTINUE 

ADEL?£=0. 00035 
ADELH=-0. 002200/100. 0 

CF= M-O^-ADELPI^INLOSS) * ( 1. 0 + ADEL? E* EXLOSS) * ( 1 . 0 A DEIH* H UMID ) * 

♦ iQRT(TRETA) 

CFNG=NG^CF 
FETURN 
END 

FUNCTION TO CORRECT MASS FLOW RATE 



FUNCTION CFW ( W . TH ETA - DELIA , I NLOSS , E XLC SS ,H U MI D , NGC) 
REAL W, THETA, DELIA, IN LoSS , EaLCS 5 , HUM ID , NGC , ADELPI,AD 

^ 

IF (NGC.'Le. 9100 . 0) GO TO 10 
:F (NGC. GE. 9200 .0) GO TO 20 

AD ilP I=-0. 00 075- (NGC- 9100.0) *0.000917/100.0 



SLPE, ADELH, 



]_QU 



nnonnoonn<’i 



10 



:o 

30 



C 



10 



20 

30 



C 



c 



10 

20 

30 



GO ro 30 
AO£L?I=-0. 00075 
GO TO 30 

AD£L?I=-0. 001667 
CO STINU-: 

A D £L r Z=0 . 0 00 4 7 5 



ADHLH=-0. 00542 9/1 00,0 

CF = ( 1 .O#* AD£L?I*ISLCSS) * ( 1 . O-^ A DFl? £* 2XLO 5S) 
♦ OELTA/SQRT (THETA) 



(1, 3>A0£EH*HUMTD) « 



'-=W*CF 
flETORM 
END 

FONCTION TO CORRECT T3 



FUNCTION CFT3 (IS, THET A - INLC35 . Z XLOSS , HU !1ID , NGC) 

EZAI T3, IHETA^ INLOSS, EXLOS S , d UHI J , NGC , ADEL P I^ ADZ LPE , AD £ LH, 
► CF-CFT3 

IF (NGC.LE. 9100,0) GO TO 10 
IF (NGC,GE, 9200,0) GO TO 20 
AD£LPI=0, 0 01 0 5^ (NGC- 9 100,0) *0,C 



GO TO 30 
AD£L?I=0, 
GO TO 30 
AD£LPI=0, 
CC NT I NOE 
AD£L?E=0, 



.001242/100,0 



00105 

002292 



,00095 
AD £LH = -0, 0 00643/100, 0 

CF= ( 1, A DEL? I* IN LOSS) • ( 1 . 0>ADEL?E*EXLOSS) * ( 1 . 0^ ADELH* HUHID) ♦ 
+ THETA 
CFT8=T9*CF 
9EIURN 



FUNCTION TO CORRECT ?8 



FUNCTION CF?3 (?6, DELTA, EXLOSS) 
REAL 98, DELTA, EXLCSS, Cj, CFP3 
CF = (1 ,0<-0, 0024 1*EXLOSS) ^DELT, 



CFRa=?3*C? 

RETURN 
END 

FUNCTION TO CORRECT T54 

FU NCTION CFT54 (154, T H ETA , I NLO SS , EXLOSS , HUMID, NGC) 

REAL :54,THETA,INLCSS , EXIC SS , H UHI D , NGC , ADEL PI, AD E, A D ELH, 

► CF,CFT54 

IF (NGC, LE. 9103,0) GO TO 10 

IF (NGC, GE, 9200 , C) GO TO 20 

AD rLP 1=0, 0 00956t (NGC- 9100, 0) ♦ 0 , 0 0 1 /I 00 , 0 

GO TO 30 

ADE1PI=0,0 00956 

GO TO 30 

ADEL?I=0, 001953 
CONTINUE 
ADEL?E=0, 00056 
ADELH=-0. 002057/100.0 

cr = ( 1.0> ADEL?I*INLOSS) * ( 1 . 0 + A DE LP E^EXLOSS) ♦ ( 1 . 0 ACELH* H UMID ) • 

► .HZTA 
CTT54=CF*T54 
RETURN 

END 



1C 5 



nonnnnn 



«**««««««***« ^ M m M ****** * ******** ** *********-^m* * **** *********** ****** 

:,;i2500 iiiGiSE lAauuTios of peefor.'iance data Fca STD. cc;oiTio:is 

THIS DATA IS lAKSH FRC.1 CASS SOMBSHS 536 TD 607 PAGES 171-165 
OF IHS OE HA.HOAL. EXT?A?OLATSO VALJSS ?RC'/IDED 3Y THE AUTHCS 
USING GRAPHICAL TECHNIQUES. 

««*cx********** «tt*«*«*«*««*«***«««**««*«««x«««x«****»**********«*«a«ft*(2 

SUBROUTINE L «2 500 ( BH? , NPT, N2 , W6 , T3 , ?8 , S FC, T 54 , MG , OFF) 

REAL 3H? ,N?T, N2,W6,:8 , ?8 , SFC, T5 4 , NG, X , 

♦ W2I,W3T,T9T,?8T, SFCT,T54T, NGT 
INTEGER OFF, XOCT 

DIMENSION X(2) ,XOUT (2) ,W2T (o4) , N8T (6 4) , T3T (64) ,P3T(64) , SFCT (o4) , 

♦ T64T (64) ,N3T(64) 

DATA W2I/ 3. 0,6.0. 

♦ 1000.0, 3000. 0,5000. 0, 10000. 0. 15000. 0, 17500.0,20000.0,22500.0, 

♦ 1200.0, 1300.0,2400. 0,3000. 0.3 30 0.0,36 00.0. 

♦ 41.3,67.6,37.0,121.2, 143. 0,158. 0,169. 0, 17S.0, 

40. 2,6 1 .6' 77.2, 105. 6, 127.5, 137.6, 146. 4,15 6.0, 

♦ 43.3^61.2j74.c;93.7,117.5,^25.7,l33.6,l41.9, 

♦ -4. 4 ' 6 2. 7^73. el 96. 4 , 1 1 3. 3, 12 0.9 , 12 7.8 , 13 4.3, 

♦ 5 I. 7,64. 5,75. 1,90.4, 11 2. 4, 1 19. 7, 126.4, 132.9, 

♦ 54.7,66.4,76.0,96.7, 112.2,119.2,125.5,131.6/ 

DATA 481/ 8. 0,6.0, 

♦ 100 0. 0,3 00 0. 0,5000. 0, 10000.0,15 000.0,175 00.0,20 00 0. 0,2250 0. 0, 

+ 12 00.0, 1800. 0,2400. 0,3000. 0, j 300 . 0,3o 00. 0 , 

♦ 41. 9, 67. 7, 87. 2, 122. 0,149. 8, 160. 0,172. 5, 1S1.0, 

4 40. 2,6 1. 3, 77. 4, 106. 1, 128. 5, 133. 9, 143. 0, 1 58.0, 

43. 4,6 1 . 3, 74 .2, 99. 1 , 1 18 .3, 126. 7, 13 4.8 ,.14 3 .3, 

♦ 48.5,62. 9, 74, 1,96.9 , 114. 1, 121. 3, 128. 9, 135 . 6, 

4 51. 3,04. 8, 75-4,96.9 , 113. 2, 120. 0 , 127.5 , 134. 1 , 

4 54 . 9,56.0,77.0,97.3,113. 1 , 1 20 . 2 , 1 26 . 6 , 1 3 2 . 9/ 

DATA T§T/ a. 0,6.0, 

4 100 0.0,3 00 0. 0,5 000. 0, 10 000. 0, 15 000.0, 1750 0.0,2 0 00 0.0,2250 0. 0, 

4 120 0. 0, 1 80 0. 0,2400. 0,3 000 . 0 ,3 300 . 0 , 3 0 00 . 0 , 

4 114 4., 11 53. , 11 96. ,1395., 103 i. ,1755. ,1877. ,2000., 

4 1185., 1 1 53. , 1 161., 1 253., 137 4. ,1431 ., 1499. , 1560, , 

4 1234. , 11 96 . ,1 191. ,1214. ,123 3. ,1324. ,136 4. ,1393., 

4 128 1., 1 2 53 ., 1242., 1 24 3. , 1280. , 1303. , 1 329. , 1 352. , 

4 130o., 1 287., 1272., 1 263., 1296. , 13 12., 1 335. , 13 56. , 

4 1334. , 1321. , 1304. , 1 296. , 132 0., 1332. ,1 347 . ,1366./ 

D A A ?8^ / 8 0 6 0 

♦ 100 0.5^ 300 0 ' 0 * 5 500. 0, 1000 0- 0* 15 000.0. 17500 .0 , 20 000,0, 225 00. 0, 

♦ 120 0. 0. 1 30 0. 0,2400. 0,3 000.0, j 30 0.0 . 3oC0. 0, 

> 14. 70, 14.72, 14. 73, 14. 78, 14. 35, 14. 89, 14. 04, 15.01, 

♦ 14.70, 1 4.7 1 , 14. 73, 1 4.7 5, 14. 79, 1 4.3 1, 1 4. 3 3, 14.35 , 

14, 71, 14.71, 14.72, 14.7 4, 14. 77,14.78, 14.30, 14.31, 

♦ 14. 71, 14.7 2, 14. 72, 1 4. 74, 14. 76, 1 4. 7 7, 1 4. 7 9, 14.30, 

♦ 14.71, 14.72, 14. 73, 14. 75,14.76,14.77,14.78,14.30, 

4 14. 71, 1 4.7 2. 14.73, 1 4.7 5, 14. 7b, 1 4. 7 7, 1 4. 7 8, 14 . 7 9/ 

DATA STZT/ 3 .0.6.0, 

4 100 0.0,3 00 0. 0,5000. 0, 1000 0. 0, 15000.0, 1750 0.0,2 0 00 0.0,2250 0. 0, 

4 1200.9, 1300. 0,2400. 0, 3 000. 0,J 30 0.0, 36 00.0, 

4 1.4 967,0.363 2,0. 73 60, 0.6802,0. 71 35,0. 7400, 0. 7 740, 0.3 1 80, 

4 1. 5 251 , 0.7 993,0.64 1 6,0.53 03 ,0. 5 1 08 ,0. 503 1 , 0, 51 09, 0. 5 2 10, 

4 1. 7 335,0.83 8 4,0. 642 0,0.48 52,0. 44 33,0. 434 3,0.42 5 7, 0.4 2 45, 

4 2. 0262, 0.9 1 62,0. 678 4,0.49 16,0. 4 3 13 ,0. 415 1 ,0. 40 3 8, 0. 3 9 47, 

4 2. 2151, 0.9759,0. 71 06, 0.50 43, 0.43 52,0. 4159, 0.4031, 0.3939, 

4 2. 40831 1 .0374,0.7476,0.5210 ,0.4445 ,0. 4222, 0. 4056, 0.3940/ 

DATA T54T/ 8. 0.6.0. 

4 1 000.0, 3 000. 0,5000. 0, 1 0 000. 0, 15000.0, 175 00.0 ,2000 0.0 , 2250 0. 0, 

4 1200.0 , 1 90 0. 0,2400. 0. 3 000 . 0, j 300. 0 , 3o 00. 0 , 

4 12 14., 1 2 70. , 135 6., 1 615., 18 9^. , 20 30 . ,2 170. , 23 10. , 

4 12 5 8. , 1290. , 134 2., 1 50 9. , 1684. , 1 762 . , 1 350. , 1940. , 

4 13 03., 1 3 34. , 1378., 1 489. , 1623. , 16 91 ., 1 755. , 18 08. , 

4 134 3., 13 87. , 1423., 1 5 24. , 163 3. , 1 685 ., 1 739. , 1783. , 

136 4., 14 17. I 1455., 1 54 6. ' 1650. I 1 697. , 1 749. , 1 79 8. , 



4 1389., 1447. , 1483. , 1 575. , 16 7 3. , 1718. , 1 764. , 18 10./ 

DATA NGT/ 8. 0,6.0, 

4 100 0. 0,3 00 0. 0,5 000. 0, 10 00 0.0, 15 000.0, 1 75 0 0 . 0 , 2 0 CO 0. 0 , 



22500. 0, 



10 6 



nrinnr lO 



10 

20 



f 1200.0, 1800. 0 

► 6980.6,7623. 1 

f 6908.2, 7 52 9.7 
^0 4 1.5 , 752 3.2 
f 7223.3 , 754 7.9 
- 7334,0, 757 6. 0 

«■ 74 15.0, 7604.3 

X ( 1) = 3H? 

X (:j =NPr 
CAIL TABLE 
CALL TABLE 
CAIL TABLE 
CAIL TABLE 

CAIL TABLE, 

CALL TABLE T54T 
CAIL TABLE (NG‘ 
ifJjxouT(I).- 

GO TO 20 
p ~ n 

CONTINUE 
FETUBN 
END 



W2T, 

W8T, 

T8T, 

P3T, 

SFCT 



,2400. 0,3000. 0,3300.0,3600.0, 

, 79a 1. 3, 8 548. 3, 950 5. 9, 10 160 .0, 103 8 0. 0. 1 1 70 0. 0, 
,7779. 3,3250. 7, 3b 9 9. 0,8 9 04. 3, §337. 3, S5e 0.0, 
,7723. 4,3135.3, 34 73.2, 36b0. b, 3060. 0, SC33 .0, 

, 7726. 5, 3 09 9. 2,5 33 1 .3 ,35 46. 9 , 37 1 1. 0, 383 0 .6, 

, 77 -io. 7, 3098. 3, 3 3o6. 4, 35 17. 3 , 3676 . 6, 3344 .2, 

,77 72. 3 ,3 10 5. 0,3 3o4 ,35 08. 0,3 o 60. 0, 381 2,7/ 

2,XCUT ,N2) 

X,XOCr ,N8 I 
X,XCUT ,T3'| 

X,XOUT,P3)_ 

,X, XOUT, SEC) 

,X, XOUT,T54 
X.aCUT ,NG) 

0) .OR. (XOUT(2) ,Gr.O}) GO TO 10 
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^♦^«********»**»*********** ********************** 

FAN CHAR ACTZRISTICS INPUT SUBROUTINE 

THE DEFAULT FAN CHARACTERISTIC UAS PROVIDED 3Y JOY MANUFACTURING 
COMPANY AND IS FOR THE FAN INSTALLED ON THE SPF.UANCE CLASS 
DESTECYER. OTHER FANS ARE MODELED AS A QUADRATIC EQUATION 
WITH A MAXIHUM AT MAXIMUM FAN PRESSURE AND DISCHARGE 



AND ANOIHEH POINT 



C** 



MAXIMUM DISCHARGE AND ZERO FAN PRESSURE. 

I «««*«*» I 



10 



20 

600 



***««*«* «****4i«**««««««*^ 

SUEEOUTINE FAN (RHO STD . C F MO . CF MM AX , DP M A X , H) 

REAL RHOSTD,C?MO,CFM.MAX,D?!iAX,K 
INTEGER YES,ANS,NO 
DATA YES/* YV/ NV 

DO YOU WANT THE DEFAULT FAN, THE DD 963 CLASS DESTROYER FAN ??? 
WHITE 600) 

READ (5,q0 1 ,lND=4, £RR=4) ANS 
IF ( (ANS. £0. YES) .CH. ( ANS.EQ.NO) ) GO TO 3 
REWIND 5 
WRITE (6,602) 

GO TO 2 
CONTINUE 

IF (ANS.EQ. YES) GO TO 10 

A EIFFERSnT FAN HAS SEEN SELECTED , INPUT REQUIRED PARAMETERS 
WRITE (6, 60 2) 

CALL READR (RHOSTD,5) 

WRITE (6, 603) 

CALI READR (CFM0,5) 

WRITE (6, 604) 

CALL rEADR (CFMMAX, 5) 

WRITE (b, o05f 
CALL READR (DPM AX,5) 

K=-1. C*D?a AX/ (CFMO -CFMMAX) **2 
GO TO 20 

FCLLCWING ARE VAIUES FOR THE DEFAULT FAN 
RHOSTD=0 .071 
Cr M0=24000.0 
CFMMAX=1 1000.0 
DPMAX=27. 7 

K = -1. 0*0PMAX/(CFM0-CFMMAX) **2 
CCNTINUE 

FORMAT(» YOU HA7E SELECTED A SYSTEM WITH A COOLING FAN. THE*/ 



601 

602 



603 

60 4 

605 



DEFAULT SPECFICATIONS ARE FOR THE FAN INSTALLED ON*/ 

THE DD963 CLASS SHI?.*// 

^ * DO YOU WANT TO USE THE DEFAULT S? ECFIC ATICNS (Y/N)?*) 

?C5MAT(A1) 

FORMAT]* THE PROGRAM WILL APPROXIMATE YOUR FAN WITH A QUADRATIC*/ 
K * EQUATION. TWO POINTS ARE REQUIRED FROM THE FAN PERFOR MANCE */ 



FORMAT {* 
FORMAT(* 
► * 
FORMAT (* 

FETUnN 

END 



..rtrt £^ 4 . 4 . . 

•JS7HS ADD THE SEFERENCE AI2 DESSZZ'i OF THE CURVES 
:S THE 3EFEEEMCE AI?. DENSITi [ L3.1/FT 3 ) 7 ’ ) 

WHAT IS XHH FLOW AT ZZS.0 SAGE ?SESSU-i 



WHA 






_ _ _ SURE (CFS) 7 •) 

WHAT IS THE FLOH AT HAXIHU:; GAGE PRESSUEE (CFH)?’/ 
E(CF2)/DP=0 . M 

WHAT IS THE MAXIMOM FAN DISCHARGE GAGE PRESSURE (INCHES 
D(CF.*!)/DP=0.’) 



loe 
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«««««**«« mm*****M*M**nn*MMm»Mmm mt 

FITTING PRSSSaHE LGSS CALCULATION S’J3E0aTINE 






FOE THE 30 FITTINGS AVAILABLE IN THE 1ENU THERE ARE 13 DIFFERENT 
WAYS TC COMPOTE THE LOSS FOA THE FITTING. THIS SUBECUTINS MOST 
BE ABLE TC EECCGNITE THE FITTING TYPE AND BRANCH TO THE CORRECT 
CCMPOTAIION AREA OF THE SOBEOUTINE- FOP EXAMPLE FILTER DP IS 
A FUNCTION OF FACE VELOCITY. STRAIGHT OUCTING IS F*L/D TIME THE 
THE PRESSURE VELOCITY. *iHEr.E A COEFFTCIZNT IS DEPENDENT OF THE 
REYNOLDS NUMBER, THE COEFFICIENT IS COMPUTED HERE NITH THE INPUT 
DATA._^ ^ADDING ANOTHER FITTING WOULD REQUIRE MCDIFICAIION Or THIS 




VELOCITY PRESS 
TERFECT GAS LAW 



10 



20 



♦ PTOUT,I GOT, RHO. H , .10, RN. / .DATA 1, DAT A2, D A TA 3 . E , F , KF. E , L , ? S , RHO T , 

> C.X , T.VCSE,7CWM, VCWC ,VDWE, VD W M , VDW C , I E S T , K2 , aR , D A X A4 , D P , K 1 

INTEGEr*. TYPE 
DI.1ENSIDN X(2) ,T(45) 

GAS CCNSTANT AND ROUGHNESS 
DAIA R/53. 3424/. E/0. 00015/, 

A REYNOLD NUMBER CORRECTION FOR S.100TH RADIUS RSCT ELBOWS 

♦ T/10. 0.3.0. 

♦ 1.0,i.0^3^0^4.0,6.0,a.O,10.J,14.0,2D.O,100.0, 

4 ‘ 1 .\5, 1 . 2^, 1 . < 9 , 1. 14, 1. 09, 1. Oo, 1 . J4/: . 00, 1 .00,1 . 00, 

♦ 2.0 0, 1. 77,1.04, 1. 56 ,1. 4b, 1.33,.l. 30, 1.15, 1.00, !• 0 0, 

♦ 2. 0 0, 1 . 77, 1 .04 , 1. 5o, 1. ^6, 1. 3 3, 1 . 30, 1 - 15, 1 . 00,1 . 0 0/ 

COMPUTE VISCOSITY OF AIR BASED ON TEHPERA.URE OF AIR 

MU= (29. 95 + 0. 18 9304*TI N-2. o7 53 7E-5 *TIN** 2) • 1 S-7 
ASSUME A VALUE FOR RHC 
HHC=PIIN/ (R*TIN) 

VELOCITY IS THE MASS FLOW RATE DIVIDED BY DENSITY AND THE FLOW 
AREA; V=Q/A ===> 0=MASS FLOW RATE/RHO 
V= V ATA1 ) 

PRESSURE VELOCITY (?SF) 

PV = EHO*V«* 2/ (2. 0*3 2. 1 7U) 

COMPOTE THE STATIC PRESS: EQUALS TOTAL PRESS 

PS=PTIN-PV 

COMPUTE DENSITY OF GAS ENTERING FITTING USING 
RHCT=PS/ (R*TIN) 

CCMPARS ASSUMED RHO AND COMPUTED RHO 
TEST = ABS iRdOT-RHO) 

ASSIGN NEW VALUE FOR RHO 
RHC=RHCT 

IF ASSUMED RHO NOT EQUAL TO COMPUTED RHC RESUME INTEHATION 
IF (TEST- GT.O. 001) GO TO 5 
REYNOLDS NUMBER 
RN=RHC*DATA2* V/MO 

BRANCH FITTING TO CORRECT DP COMPUTATION CODE 

GO TO (10,20,l0,10,30.30,40,l0,n,3D,30 .30,5 0,63,7D,30, 90, 

+ 9 0, 90,9 0,100, 1 00, 10, 10, 1 IJ, 10, 1 2 0, 13 0 , 10, 10) ,rY?S 

SIMPLE FITTING, COEFFICIENT TIMES VELOCITY PRESSURE 

FITTINGS; 1,3, 4,8, 9, 2 2,24,23,29 

D? = DATA3 *PV 

PrCOT=?TIN-DP 

ICUT=TIN 

GO TO 140 

STPAIGHI DUCT, FRICTION FACTOR IS COMPUTED BY COHEELATICN IN 
SHAMES, MECHANICS OF FLUIDS, PAGE 230, CORRELATION OF SWAMEE AND 
JA IN. 

FITTING: 2 

F = 0- 2 5/{ALOG 1 0 (E/(3. 7*DATA2) ) +5. 7 4/RN**0.9) 

LCSS= (r^ L/D) *7 fiCClIY PRESSURE 
DP=F*DArA3/DATA2*PV 



" n Q 
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TCUT=TIN 
?rCDT = ?TIN-DP 
GO TO no 

EL3CW WITH HEY.^CLDS HU.'iBHE CORRECTION FACTOR 

FITTINGS: 5,6, 10, 11, 12 

KRE=1 .37 0 1-0. 1465*ALJG(EN*1£-4) 

D?=DATA3*KR£*P7 

T0UT=TIM 

PTOUT=PTIN-DP 

GO TO 140 



iO 



n 



42 



Si'ICCTH RADIOS RECTANGaiAR E230W 
CORRECTION FROM TA3LE LISTED IN' 
F I TT * NG : 7 
RW=DATA4 

1 0000 . 

KRc= 1.7 
GO ro 42 



0) GO TO 41 



V T ^ n 



CAIL TABLE (T, X,XOUT,KHE) 

DP=C*KRE*PV 

TOUT=IIN 

PTOCT=PTIN-DP 

GO TO 140 



WITHOUT 7iN£S, REYNOLDS 
DATA THIS SUBROUTINE. 



NUMBER 



BRANCH SECTION OF A DIVERGING WYE. LOSS IS DEPENDENT ON 
VELOCITIES IN MAIN SECTION (VDW.1) , COMBINED SECTION (7DKC) 

BRANCH SECTION (VDirfBI AND DIVERGENCE ANGLE OF FITTIIK5. 

VELOCITIES TOMFUTED IN THE SYSTEM SUBROUTINE, PASSED TO FIID? AS 
INPUT DATA. 

FITTING: 13 

50 TEST= (ADWM-ADffC)/ADWC 

If (TEoT. LT.0.05) GO T 0 5 1 

K2=( ( (-3. 5 91 4 7 E-3* AL? AD ^ 3. 8 30 9E -6) ♦AIFAD^O. 0000574) * 

> ALFAD^O. 00 10399) *AL r AD ^0. 00 00 17 
C= 1. 0-^ (7DWB/VDRC) **2- 2. 0* (7DWB/VDWC) *COS (AL FAD/5 7, 3) -K2»(VDiia/ 

^ VDWC)**2 
GO TO b2 

51 K1=1.9 
RR=VDW3/VDWM 

IF (RR .GT. 0.3) K1 = 0.9 

C = K1* (1.0^ (Vbtf E/VD’NC) **2-2. 0* (VDGB/VDWC) *CDS (ALFAD/57. 3) ) 

52 ?7 = P.HC*VD«C**2/ (2.0*3 2. 174) 

DP=C*PV 

?V = RHC*VDW3**2/ (2.0*3 2. 174) 

PTCUT =PTIN-DP 
TOUT=IIN 
GO TO 14 0 



MAIN SECTION OF A DIVERGING 'NYE 
FITTING: 14 

COEFFICIENT BASED ON THE RATIO OF VELOCITIES VDWM AND V DWG 
COMPUTED IN THE SYSTEM PART OF THE PROGRAM 

6 0 0 = 0. 4* (1 . 0-VDWM/VD15C) **2 

?V = RH0*VD WM**2/ (2. 0*3 2. 174) 

D?=C*?V 

P7 = RHC*VDWM**2/ (2.0*3 2. 174) 

PTCUT=PTIN-D? 

T0CT = TIN 
GO TO 140 

BRANCH SECTION OF A CONVERGING WYE, THE JUNCTION CF MODULE 
COOLING AIR (BRANCH) WITH THE ENGI.NE EXHAUST (MAIN) , NODE 5 
FITTING: 15 

ALL INPUT COMPUTED IN THE SYSTEM SUBROUTINE PASSED TO FITDP 

7 0 C= 1. 0* (yCWB/VC'WC) **2-2. 0*ACWM/ACWC* ( VCi.M/VC WC) ** 2-2 .0* ACWB/AC'-iC’^ 



no 



c 

c 

c 

c 

c 



80 



C 

c 

c 

c 



90 



C 

C 

C 

C 

c 



c 

c 

c 

c 

c 



t pC"3/VC'^C) **2*CZS (AlFAC/57. 3) 
?V = clHCCC^VC*-iC**2/(2.0 *32.174) 



o?=c* ?v 
?:cu2=?riH-op 
TC0T=?T0 JT/(H*HKCCC) 
GO rc 140 



THE PATH ?OF. HNGIHE EXHAJST 



HAIN SECTION OF A CONVEHGING '^YE, 

NODE 5, FITTING: 16 
ALL VELOCITIES COKPUIED IN SYSIE3 PART OF PROGRAM AND 

passe: to fitdp 

^ ‘ ' ( 1-ALf AC/60) - (ACW3/ACWC) * 0.4 



2 - 2 . 0 * 



100 



1 1 0 



;<1 = 1. 15* (ACWB/ACyC)_**2.2U 
TEST = ABS ( ( ACHH-AC;;C) /AC;JC) 

IF]TE5T. LT.O. 05) :<1=0 .0 

C= 1. 0 > (VCWH/VC-C) **2- 2.0*ACii .1/ACWC* (VCW H/7CNC) ** 

♦ (AC'^'B/ACWC) * (VCWB/VCWC) **2*Co 5 (ALFAC/57. 3) ^-Kl 
?V = RHCCC*VC:iC**2/ (2.0 *3 2.17 4) 

DP=C*PV 
PTaJT = ?TlN-DP 
ICCT = PTD aT/(R*RHOCC) * 

GO rc 140 

DIFFOSEHS 

FITTINGS: 17. 18.19,20 

FRICTION INClu:!: IN THIS FITTING 
L = S0RI (4. 0*DATA 1/3. 1 4 16) 

RN=RHC*L*V/*a 
LAHDA=0. 3 1 64/8 N** 0.25 
CFF=C ATA2*LAilDA 
C=CFR+DATA 3 
DP=C*F7 
?TCUT=?TIN-DP 
TOOT=TIN 
GO TO 140 

CCNTRACTIONS 
FITTINGS; 21,22 
7=W/ (RK0*DAIA4) 

PV=RHC*V**2/ (2-0* 

:p=oata3*pv 
PTCUT=P riN-DP 
TOaT= TIN 
GO TO 140 

INLET FILTER 
FITTING: 24 

PHE5S0RE LOSS EASED ON FACE VELOCITY 

5.19696 IS A CCNVEESICN FACTOR 10 CONVERT INCH NG TO PSF 

:?= (DATA 2*V**0 ATA3) *5 . 196 56 

PTCUT=PTIN-DP 



32. 1 74) 



)UT=TIN 
30 TO 140 



301 



:HE path FOR 



120 



GAS TCF.3INE HOZOLE, THIS IS NOT THE ENGINE, 

CCCIING AIR AROUND THE ENGINE 
FITTING: 26 

LOSS 3A5ED OF THE HASS FLOW OF COOLING AIR THFCUGh THE HODULE 
LP=(1.61E-3*W**2. 15) * 5. 1 96 96 
P7=0. 0 

?TCUT = PTIN-DP 

THE FOLLOWING HCDSL FOR HODULE lEH? CUT SHOULD 5E REFINED 

TfT'^T i •ir-'fTTcq — "'-Mi—rn 

TOCT = TIN*2 5. 0/5* (HP/2 0 000.^0*1 50. 0) 

GO TO 140 

WASTE HEAT 30IIE2, GAS SIDS PRESSURE LOSS 
FITTING: 27 

BASED ON TUBE BUNDLE GECHSTRY, VELOCITY IN THE NARROW PASSAGE 0 
OF THE lUEE 30NDLE, FRICTION rACRTOR, F, A fUNCIICN CF REYNOLDS 



111 



c 



130 



c 

c 

c 

c 

140 



7= V*0ATA2 

?V = EHO*7** 2/ (2.0*3 2- 1 7 4) 

fi:i=F.90*7*DATA4/«U 

?= 1. 3 34*RN*» (-0. 1453) 

D?=F*DATA3 *PV 

?TCUT = ?TIN-D? 

TOUT=0.30 1 85 *H P + 2 4 7.0 *20 
HH0= (PS-D?)/ (R*TOUT) 

7= V (RH3 *DATA 1 ) 

?V = HHC*V**2/ (2.0*32. 1 74) 
GO rC 140 



NO :10R£ FITTINGS, IF YOU ADD A DIFFERENT TYPE OF FI 
RECUIPING A DIFFERENT NETHOD OF CONPUTATIDN, THE 
SHCOLD GO HERE . 

CONTINUE 

RETURN 

END 



112 



t 



c 

c 

c 

c 

c 

c 

c 

c 

c 



S ' iszz'A oriH: .iatchimg subrogtimz 

IN THI3 SYSTEM THE TOCLING AIR AND ENGINE COMSaSTIGN DO NOT 
MIX. THE LOSSES ARE COMPJTED I NDEPENDE NTL Y . A FAN IS REL'JIRED 
FOR IKE COOLING SYSTEM TO OPERATE. SYSTEM MATCHING INVOLVES TWO 
PROCESSES, FIRST MAKE THE ENGINE LOSSES AGREE WITH THE COMPUTED 
DJCT LOSS'S, SECOND MAKE THE FAN PERFORMANCE MATCH THE COOLING 

^jjC'T -r.ccTc Mn T-Tur'^'^n'ic i = r 



LOSSES. NO JUNCTIONS ARE PRESENT. 
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C 

C 

c 



SUEROUTINE SYS 1 (SERI A L, N.WORKI, WORKE , HP , NP T , r IT 1 S I, ID , P 0, HUMID , 

> RHOSTD.CFMO.CF.MMAX ,DPMAX.X) 

REAL WCRKR.HP, NPT.TD. PO, HUMID, OFM M A a , C FMO, D ? MA X, K , W 2 , N 8 . P8 , T9 , 

♦ INLOSS. EXLCSS, FA ND? , DP 1 3 , D P2 4 . D P36 . D? 4 5 , P V , PTI N, PTCUT, DATAI , 

♦ da: A 2 ,DATA3.lisr , :?,?ITPV, WC,R HOSTS, TEETI , TESTE , WC N , TMOD , 

J,C, SERIAL, TYPE 
FIT1ST(4) , DP (200) .FITPV (2C0) 
;XOP?INO POINTS FOS THE 
BRANCHES. START AND STOP BY THE SEQUENTIAL INDEX NCM5SR IN DUCT 
DATA FILE 
P=FII1ST (2)-1 
Q=FinSI (3 -1 
E=FIT1ST (4)-1 
A=5IT 1ST (2 
3=FIT1ST(3) 

C=FIT1ST(U 

INITIALI2E INLET AND EXHAUST DUCT LOSSES (INCH WG) 

INIOSS=4. 0 
ZXICSS^S . 0 

INITIAilDE COOlING FLOW 
WC=20.0 

INITIALIZE LOSS IN BRANCH 4-5 (?SF) 

DP45=100. 0 

WITH ASSUMED LCSSES GET THE ENGINE PERFORMANCE 

CALL ZNGINE(INLCSS,EXLOSS,TO, PO , HUMID, HP, NP I , W 2 , W 8, P8 , T8 , SFC, 

♦ T54,NG,0FF) 

IF (OFF. EG. 0) GO TO o 

WRITE (6,o00) 

GO TO 500 
CC N*^ I N UE 

INITIALIZE CONDITIONS FOR START OF BRANCH 1-3, ENGINE INLET .FLOW 
DP 13 = 0.0 

INLET PRESSURE IS AMBIENT (P3F) 

pt:n = ?o* 144. 0 

INLET TEMPERATURE IS AMBIENT (DEG R) 

TIN=T0^459.7 
DO 10 1= 1 , P 



TYPE=WORKI (1,2) 
DATA1 = WORKR (I, 1) 
CATA2 = WORKR (1,2 



DATA3= WCHKR 
DATA4 = W0RKR 
CALL 



1.3 



TD? (W2-HP.PTIN, TIN. PTCUT. 
D A TA4 e TYP S, DEEP, 5. ,0.,0.,0.,0.,0 



10 



20 



5 : 

DP (I) =DELP 
0P13=0P13 + DEIP 
FITPV (I) =?V 
PTIN= PTOUT 
TIN-TOUT 
CONTI NOE 

INITIALIZE INLET CONDITIONS FOR BRANCH 3-6 

?IIN=?8*144. 0 

lINsTS 

DP36=0.0 

DC 30 1=3. R 

TY?E=WORKI (1,2) 



TO UT, PV, DATAI , data: , DATA 3, 

. , 0 . , 0 . , 0 . , 0 . ' 0 . , 0 . , 0 . , 



onnnof ^nnnn 



30 

C 



40 

c 

c 



c 



4D 



50 

C 

55 



60 



CATA1 =WORKR (I, 1) 

0ATA2 = WCHKR (1,2) 

CATA3 = ffORKR (I, 3 

2ATA4 = WCRKR (1,4) ^ ^ ^ . 

CALI FITDR («8, HP,? TIN, TIN, PTO J I , I OOT , ?7 , DATAl , DATA2, DATA 3, 

► D AT A 4 ^ TY P^,w^j->?,0«,0« ,0*,0* ,0. ,0«,0* ,0* ,0« ,0« ,0*,0* ,0* , 

^ 0.,0«,10) 

DP (I) =d£l? 

DP J6=DP36>D£I? 

FITPV (I) = P7 
?TIN=iTOUT 

iiN=roo'r 

CO NT I NOE 

IF THE EXIT PRESSURE IS NOT AflBIENT, REPEAT UNTIL IT IS 
TEST=ABS (?TOUT-P0*l4a . 0) 

IF (TEST. LI. 1 . 0) GO TO 40 
?TIN=P0*144.0>DP36 
GO TO 20 
CONTINUE 

CO.'IPARE ASSU^lEO INLET AND EXHAUST LOSS NIIH 
IF THEY DO NOT AGREE REPEAT 
INLOS3=INLOSS*5. 19696 
E:CICSS=S XLCSS*5. 1969 6 
TEST1 = ABS (DP 13 -INLOSS) 

TEST2 = A3S I DP 3 6- EXLOSS I 
INL0SS=0? 13/ { 1 44. 0*0. 03609) 

EXLOSS=0?36/( 1 44.0*0. 036091 

IF ((TESn. GT. 1.0) .OR. (TEST2.GT. 1.0) ) GO TO 5 
INITIALI2E INLET CONDITIONS FOR 3RANCH 2-4 
PTIN=?0*144. 0 
DP24=0.0 
TIN=T0>459.7 
DO 50 I=A,Q 

TYPE=WORKI (1,2) 

DATA1=WORKR (x, 1) 

DATA2=WORKR 1,2) 

DATA3=WOEKR 1,3 
DATA4=«ORKR Jl,4) 



THE COHPUTEC LO S3 ES 



ITDP ( SC, 
^ t * - mt' 



,?TIN,riN,PT0UT,TCUT,?7, DATA1,DATA2, DATA 3, 

LP,0.,0.,0.,0. ,0. ,0.,0.,0. ,0. ,0. ,0.,0. ,0., 



CALL FI 
► DATA4 

^ 0.#v.,av 

DP (I) =DELP 
D?24=DP24^DEL? 

FITPV (I) = P7 

PTIN=PTOUT 

TIN=rOUT 

IP (TYPE .EQ . 26) T!10D=T0aT 
CONTINUE 

INITIALIZE CONDITIONS FOR BRANCH 4-5 
T4=T0UT 

?TIN=P0* 144. 0^DP45 

TIN=T4 

DP45=0.0 

DO 60 I=C. N 

TY?S = W0RKI (1,2) 

DATAl = tfORKR (I, 1) 

DAIA2=WORKR 1,2 
DATA3 = WORKR 1,3) 

DATA4=W0RKR I,4j 

CALL FITOP (»C,H?.?TIN.TIN, PTOU T , TO OT . P V . DATA 1 . DA IA2 , D ATA3, 

* DATA4,rY?E.5ELP,0.,J.,0.,0.,0.,a.,0.,0.,0.,0.,0.,0.,0., 

* 0. ,0. ,T0) 

DP (I) =DELP 
DP45=DP46*DE1P 
FITPV (I) =P7 
?TIN=PTOUT 
TIN=TOUT 

IF (TYPE.EQ. 26) THOD=TOUT 
CONTINUE 
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c 



c 

70 

c 

c 



c 



c 

500 
600 
oO 1 



IF FXi: CCMDITICN CCMDIFION IS NOT A.13IZNT faSS3U?£ REPEAT 
I E ST = ASS (PTO JT-?0^1U4 , 0) 

IF (TEST. LI. 1.0) GO TO 70 
GO TO 5 5 

FAN PHSSSUHS HISS 

FANDP^ (0?2a^0P45) / (14 4.0*0. 03o09) 

.1ATCH rlOW TO 2'iS^Z:i FOP NEXT ITERATION NITH -CN 

CALL FAN1AT (RC .T0,P0, F AND P, PHOS TO . CF :10 , TFX X A X , 0 P N AX , K, W CN) 

IF ASSUMED FLCi BATCHES .lATCHED FLOW XO'J ARE rINISHio 
TEST=ABS ( 71CN-WC) 

xc = wc:i 

IF (TEST.GT.O. U GO TO 45 

WRITE THE INFOFBATION TO AN OOTPOT FILE 

CALL CaTPUT(T0 ,P0,HJ.’1I0, a?, NPT, N, WORKI, DP, ? ITP V , I NLCSS , £XL0S3,PC 
► W2/W3.P8,T3 -icC,T5 4, NG, Serial, I.NOD) 

DP13=DP1 5/5. 19^96 
D?36 = 0P36/5. 1 9696 
DP :4=DP24/5. 19696 
DP45=DP45/5. 1 9696 
WRITE Saa&ARX OF 3RANCH LOSSES 
WRITE (4,601) EP13,DP 36, 0P24, DP45 
CONTINUE 



FOFMAIC POWER POINT IS NOT ON THE PERFORMANCE MAP.*) 
FORMAT (/5X ,* LOSS BRANCH 1 -3 : • , F 1 2 . 3 , /5 X , * LC SS BRANCH 3-6 
► /5X,*LCSS BRANCH 2-4 : • , F 1 2 . 3 , /5 X , ’ LO SS BRANCH 4-5 



FETUHN 

END 



:*,f12.2 

:* , F12.2 
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SUBROUTINE 






THIS SYSTE.'l HAS A COMBINED INLET. ENGINE AIR AND COOLING AIR 
ENTER THROUGH THE SA.'IE ENTR'i. THE COOLING AIR SEPERATES IN THE 
'IAIN INLET DUCT, BRANCHING OrF TO THE COOLING FAN AND THEN TO 
THE MODULE. THE COOLING AIR DOES NOT JOIN THE EXHAUST FLOW. 

IT IS DUCTED SEPARATELY TO THE ATMOSPHERE. 



SUBROUTINE S YS 2 (SERIA L, N/NORKI, NORKR , HP ,NP T , FIT 1 S T, TO, ?0, HUMID, 

♦ ALFAD ADWC ,AEWM , 

> RHOSTD.CFMO.CFMHAX^DPrtAX '<) 

REAL NORKR.HP.NPT.TD. ?0 . HUMxD ,CFMM AX -CFMO , DPHAX, K , W 2 , T 8 , ?8 , T3 , 

♦ INLOSS. EXLCSS ,FA NDl^ , DP 1 2. D?24 . D?3 o .DP 4 5,? V,P TIN, PTOUT, DATA! , 

> DArA2,DATA3.TEST,0?,FIT?V, SC ,RHOSTD.TEST1 , :EST2.NCN,TMCD- 

> T54 ,S rC, NG, ALFAD , AL^*B , aD wi , A D WH , DP 2 j , ? T2 , RHO 2, VtWB ,VDWC , VDWM, 

♦ DATA4,R,S 

INTEGER WCEXI . cITIST. OFF, N - ??. 0 0, RR , S5, A. 3 , C,D . SERIAL, TYPE 
DIMENSION WORKI (200,2) ,WCRKR(255,4) ,fI.1Sr (5) ,D? (23 0) ,FIT?7 (2 00) 
GAS CONSTANT 
DATA R/53. 3424/ 

THE STARTING AND STOPPING POINTS FOR BRANCH COMPUTATION LOOPS 

-1 
-1 
1 



P?=FIT1ST 
QQ=FIT13T 
RR=FIT1ST 
S'S=FIT1ST 
A= FIT 1ST 
3=FIT 1ST 
C=FIT 1ST 



-1 



D=FITlSr 5) 

INITIALIZE INLET AND EXHAUST LOSSES (INCH WG) 

INICSS=4, 0 
SXLOSS=3. 0 

INITIALIZE COOLING FL CW 

WC=20.0 

D?45=100. 0 

GET THE ENGINE PERFORMANCE WITH THE ASSUMED LOSSES 
CALL ENGINE (IN less, EX LOS 5, TO, ?0 , HU MI D, HP , N P T , W 2 , W 3 , P8 , T 8 ,SF C , 
♦ T54,NG,0FF) 

IF (OFF. ED. 0) GC TO 6 
WRITE (6,600) 

GO TO 5 00 
CONTINUE 

INITIALIZE THE INLET CONDITIONS FOR BRANCH 1-2 

DP 12=0.0 

?TIN=P0* 1 44, 0 

TIN = T0^459 .7 

CCMPUTS FITTING LOSSES 

DO 10 1= 1 , ?P 

TYrE=WORKI (1.2) 

DATA1=W0RKS (T, 1) 



DATA2 = WORKE (I, 
DATA3=RORKR 1,3 
DATA4=WORKE jl,4 
CALL FI TOP { W2,H 



iur V TI N , II N , PTC UT . T OUT , P V , DATA1 , DATA2 , DATA 3, 

DAiA4,TYPE, u EjlP , u . ,0.,0.,v.,3* ,3.,0.,0.,0.,0.,w.,0.,0.,0.,0., 

^ ^ Q \ 

DP (I) =DELP 
DP 12=DP 12>DEIP 
FITP7 (I)=P7 
PTIN=PTOUT 
TIN-TOUT 
CONTINUE 



10 



C CCMPUTS VELOCITIES IN THE DIVERGING WYE SECTICN 

PT2=P0*1 44.0-DP12 
RHC2= (PT2-PV1/ ( (TO >45 9.7) ♦R) 

7DWB = WC/(RH02*ADW3) 

VDWC= {WC^■W2) / (EHC2*ADWC) 
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c 



c 



20 

C 

30 

C 



35 

C 



40 

c 



c 

c 

45 



c 



V D w .>1 = W 2 / f S H 0 2 ♦ A D w « ) 

INITIALIZE INLET CCNDITIONS ECH BRANCH 2- 
?TIN = ?T2 
:iN = ip-^4 5S.7 
W = n 2* "C 
D?23=0.0 

CCHFUTE LOSSES fOR FITTINGS 
DO 20 I=A.2Q 

TYIE=w6rKI (1,2) 

DATA1 = W03-^R (I, 1 
DATA2 = tfORXR Jl,2 
DATA3=WORKR (1,3 
DATA4 = WOaXR (1-4 

CALL FITDP (S-H?-?TIN, TIN-PTOOT, TO OT - ?7 - D AT A 1 , D AT A2 - D ATA3 - 
f D ATA 4. TYPE- DEL?. 0.,ALFAD,0, ,0. ,0 . , AD-9 , ADiJH, ADWC,0. ,0.,0- 
^ v 6?7B .7fiiiM,76wC,0.,T0) 

DPiD =DELP 
DPl3=DP23^DEI? 

FITPV (I) = P7 
PTIN^PTOUT 
TIN=TOaT 
CONTINOE 

INITIALIZE CONDITIONS FOR BRANCH 3-0 
?TIN=?3» 1 44. 0 
IIN = T8 
D?36 = 0.0 

CC2PUTE FITTING LOSSES 
DO 35 I=C,SS 




CATA3=ffORXR 1,3 



DATA4=WCRKE jl,4) 

CALL FI ID? ("6, HP,? TIN, TIN, PTOJT , TO UT - ?7 , D AT A 1 , D AT A2 , D AT A 3, 
DATA4 jIYPSjZSlPj^O .,aLfAD,0.,0.,0., AD-3 , ADW « , ADNC , 0 . ,0. , 0. 



DP (I) =DElJ 
DP j:6=DP36+DE1P 



FITPV (I) 
PTIN=PTO 
TIN=TOaT 
CONTI NOE 
IF THE EX““ 



= P7 
UT 



REPEAT 



PRESSURE IS NOT AHSIENT 
TEST=ABS (PTOUT-?0*144 .0) 

IF (TEST. LT. 1. 0) GO TO 40 
PTIN=P0*144.0^DP36 
GO TD 30 
CCNTINDS 

TEST THE ASSUMED LOSSES AGAINST THE COMPUTED LOSSES 
IN10SS = INL0SS *5. 19696 
£XIOSS = E XLOSS*5- 1969 6 
TEST1=ABS (DPI 2^CP23-INLOSS) 

TEST2=A3S (DP36-EXLOSS ) 

INL0SS=(DP 12+DP23) /5. 19696 
ZXLCSS=D?36/5. 19o96 

REPEAT ITERATION. IF ASSUMED LOSSES DO NOT MATCH THE 

INI 

?TIN=PT2 
DP 24 = 0.0 
TIN = T0*459 .7 
COMPOTE FITTING LOSSES 
DO 50 :=3,HH 

TYPE=w6rkI (1,2) 

DATA1 = «0EXR (I, 1) 

DAIA2=W0RKR 1,2] 

DATA3=WORKR 1,3) 

DAIA4 = t;oaKR il,4i 

CALL FIID? (WC, HP,? TIN, TIN, PTOUT , TOUT , ? V , D ATA 1 , DA IA2 , D ATA 3 , 



lF (JTESTl TgT. 1 .0) -OR. (TSST2.GI. iTO) ) GO TD d 
CNI.IALIZE THE INLET CCNDITIONS FOR BRANCH 2-4 



COMPUTED 



LOSS 
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50 

C 

55 

C 



60 

C 



c 

70 

c 



c 



c 

500 

600 

601 



f DATA4^TY?E,I:ELP, O AIFAD^ O. #0. ^ adnb, adw.i, adwc, o. ,0. 
«* VD;^B .7DWfl,VD'^C,0.,T0) 

DP (I) =D£LP 
DPz4=DP24+D£IP 
FITP7 (I) =PV 
PXIN=PTOUT 
TIN=TOaT 

IF (TYPE.2Q. 26) TMOD^TOOT 
CONTINOE 

INITIALIZE THE INLET CONDITIONS FOR BRANCH 4-5 
T4=T0UT 

PTIN=?0* 144, 0+DP45 

TIN=T4 

DP45=0.0 

COMPUTE LOSSES FOR FITTINGS 
DO 60 I=D, N 

TYPE=WORKI (1,2) 

DATA1=W0RKR '' 

DATA2=WORKR 
DATA3=WORKR , 

DATA4 = W0RKR 



. 0 . , 



CALL FITDP (iC- HP,PTIN,TIN, PTCUT,TOUT,PV, DATA1,DATA2, 
DATA4, TYPS,DiLPjO . ,0. ,0, ,0, ,0.,0.,0.,0.,0.,ol,0.,0, 
0 . ,0. , TO) 

DP (I) =DELP 
DP45=DP45+DEIP 
FITP7 (I)=P7 
PTIN=PTOOT 
TIN=rOUT 



DA 

.0 



:a3. 



IF 

CONTI 



(TYPE.EQ. 26) 
lUE 



Ci40D=TCUT 



IF EXIT PEESSORZ NOT AMBIENT REPEAT 
TE£T=ABS (PTOUT-PO*144 .0) 

IF (TEST. LT. 1.0) GO TO 70 
GO TO 55 

COMPUTE FAN PRESSURE AND MATCH FAN PERFORMANCE TO SYSTEM 
FANBP= (DP24+DP45+DP12 )/5. 19696 

CALL 

IF COCLI 

TEST=ABS ( HCN-WC) 

yc=wcN 



FANMAT(HC,T0,P0- PANDP . HHOS TO , CF MO , CFM M AX , DP M AX , K, R CN) 
CLING FLOW MATCHES YOU ARE FINISHED 



IF 

WR 



(TEST. C 
ITE PERFOEMAl 



. 0 . 1 ] 



GO 

ICE 



TO 5 
[NFORMATION 



TO THE OUTPUT FILE 



CALL OUTPUT (TO ,P0 .HUMID, HP, NPT, N, WOR KI , DP , F I TF V , I NLCSS , £XLOSS,WC, 
W2 ,W8 ,P8,T3 .SFC,I5 4, NG, SERIAL, TMOD) 

DP12 = 6pi1/5.19dS6 
DP23 = DP23/5. 19696 
DP36 = DP36/5. 19696 
DP24=DP24/5. 19696 
DP45=DP45/5. 19696 
WRITE THE BRANCH LOSS SUMMARY 
WRITE (4,601) DP12,DP23, DP36, DP24 ,DP45 

POWER POINT IS NOT ON THE PERFORMANCE MAP.M 
/5X,’LOSS BRANCH 1-2 F 1 2 . 2 , /5X ,» LO S3 BRANCH 2-3:’,F12.2, 
/5X,’LOSS BRANCH 3-6 : * , F 12 . 2, /5X , * LO SS BRANCH 2-4:*,F12.2, 
/5X,’LOSS BRANCH 4-5:»,F12.2) 

FETURN 

END 



CCNTIN 

FORMAT 

FORMA” 



T(* 
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^ SYSTZ.« THREE .1ATCHIHG SUBROUTINE ^ 

THIS SYSTEM UTILIZES A COMBINED INLET AND EXAUST DUCT FOR BOTH 
ENGINE AIR AND COOLING AIR. NODE 2 IS A DIVERGING NYE. NODE 5 
IS THE JUNCTION OF MODULE AIH AND ENGINE EXHAUST. THE SCHEME IS 
TO FIX THE PRESSURES AT NODES 2S5 AND WORK THE PARALLEL BRANCHES 
SO THAT THEY HAVE THE SAME INLET AND OUTLET PRESSURE, ?2 AND ?5. 
CHECK ASSUMED LOSSES AGAINST COMPUTED LOSSES REPEAT IS NECESSARY. 

SUBROUTINE S YS 3 (SERI A L, N , WO RKI, NOR KR , HP ,NPT , FIT 1 S T, TO, PO, HUM ID, 

+ ALFAD. ADW3. ADWC,ACN:1 ,ALFAC. ACW3, ACWC, ACPM, 

♦ rhostd.cfmo,cfmmax,dpmax,k[ 

REAL UCaKR,HP,NPT,TO. PO, HUMID ,CFM«nX,CF MO, D PMAX, K , W 2, W 8 , ?8 , T3 , 

♦ INLOSS, EilCSS,FAND?,DP12, DP24, DP3b,D?45,P V, PTIN, PTCUT, DATAI , 

♦ DAT A2,OATA3,Xi:ST ,DP,FITP7, WC , RHCST D . T E S T 1 , T ZST 2, W C N- TM 00 , 

T54 ,S rC,NG,ALFAD,ADW3, ADWC,ADWM,DP2J, PT2,nK0 2, VDW 3 , 7D WC , VD W M , 

r, . 7 T R . 7r & T _ 7 P V M . M 1 T _ T H H S EC , 



► CATi4,R, ALfAC,Ac!i3, AC&C,Ac5m ,VC^B, VC&C , vtWM.TSAIN, iMOD. 

»• HMAIN.HSTACK, T4, T5, W, gain, loss, PScC, pm AlN.pt 4, PT5. test 3. 

► PVB , PVC ,PVM ,PS3, P SC, P SM, RH OC 3T, RHOCCT, Race MT, TEST 1 ,TEST2 
INTEGER WORK!, FIT 1ST, CFF,N, PP,J J, RR, SS, TT, A , 3 , C , D , E ,SER lAL , TYPE, 

IND 

DIMENSION WORKI(200, 2 ),HCRKR(^0 0,4) , FIT 1ST (6) , DP (20 0) , F I TP V (2 00) 
GAS CONSTANT 
DATA H/53-3424/ 

SET UP STARTING AND STOPPING POINTS FOR BRANCHES 
PP=FIT1ST (2) -1 
QQ=FIT1ST (3-1 
Sa=FiTisT r4i -1 
SS=FIT1ST -1 
TT = FIT1ST .'6'i -1 
A=FIT1ST 
B=FIT1Sr 
C=FIT1ST 
D=FIT1ST 
E=FIT 1ST i' 6 

INITIALIZE LOSSES (INCH WG) 

INL0SS=4 . 0 
SXLCSS=8. 0 

INITIALIZE GAIN IN THE MODULE EXHAUST EDUCTOR (PSF) 

GAIN = -30. 0 

INITIALIZE DUCT LOSS IN THE COOLING FLOW PASSAGE (PSF) 

LOSS=30. 0 

INITIALIZE THE COOLING FLOW 
MC=CFMMAX* RHOSTC/60.0 

INITIALIZE THE BRANCH LOSSES REQUIRE TO START THE PROGRAM 

D?45= 100. 0 

DP56 = 100. 0 

TMOD=710. 0 

RT5=P0*1 44 .0^DF56 

CHECK TO SEE IF THERE IS A WASTE HEAT BOILER INSTALLED 
IN BRANCH 3-5. IT DOES NOT MAKE SENSE TO PUT IT ANYWHERE ELSE. 
IND = 0 

DO 4 I=C,SS 

TYPE=WORKI (1,2) 

IF (TYPE.SQ. 27) IND = 1 
CONTINUE 

GET ENGINE PERFCRMANCE EASED ON ASSUMED CONDITIONS 

CALL ENGINE (IN LOSS, SXLOSS, TO , PO , H U MI D, HP , N P T , U 2 , W 8, P8 , T8 , SF C, 

♦ T54,NG,0FF) 

IF (OFF.EQ. 0) GO TO 6 
WRITS (6 .600) 

GO TO 5 00 
CONTINUE 

INITIALIZE THE INLET CONDITIONS FOR BRANCH 1-2 

DP12=0.0 

PMAIN=PT5>LOSS 

PSEC=PT5 + G AIN 
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c 

c 



8 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



c 

c 

c 

c 

c 

c 



PTIN=PO* 

IIN=T3>4 

COMBINED 

W2 

FIND FIT 
DC 3 1=1 
^ Y F''^= 
EATAl 
DATA2 
CATA3 
DATA4 
CALL 

► DAIA4 

FITP7 

PTIN= 



14 4-0 
59.7 

MASS FLOW WC^'W2 

TING LOSSES 
,P? 

WORKI (1,2) 

= WORKP. (I, 1) 

= WORKH (1,2 
= WORKR (1,3) 
=WORKR 1,4 
FITDP (W,nP,PTIN, 

-type,df:lp,o. ,o. 

0. ,0- ,0.,TO) 

=Dt:LP 
DP 12 + DEL? 

(I)=PV 

PTOUT 



IN,?TOOT,TOUT,?V,DATA1,DATA2,D ATA3 , 

0 -, 0 - , 0 - , 0 « , 0 - , 0 - , 0- ,0 - , 0 - , 0 - , 



IIN=TOnT 

CONTINUE 

THE JUNCTION PARAMETERS AT NODE 2 AND 5 ARE COMPUTED HERE 

BASED ON THE CURRENT ASSUMPTIONS- THE PARALLEL BRANCHES MUST 

MEET THE VALUES AT THE NODES 2 AND 5. THE PARAMETERS ARE AS 

NOTED IN THE COMMENTS 

TOTAL PRESSURE AT NODE 2 

RT2=P0*144.0-DP12 

DENSITY AT NODE 2 

RHC2= (PI2-?V)^/ ( (T0>45 9.7) ♦R) 

VEICCITY IN THE COOLING BRANCH 
VDWB=WC/ (RH02* ALNB) 

VELOCITY IN THE COMBINED INLET SECTION ABOVE NODE 2 
VDWC= (MC + WT) / fRH02*AnWCl 

VELOCITY OF THE AIR FLOWING TO THE ENGINE FROM NODE 2 
VDWM = W2/ (RH02* ADWM) 

TEMPERJirURE OF IHE AIR IN THE PRIMARY FLOW OF THE JUNCTION AT 

NODE 5, ENGINE EXHAUST TEMPERATURE 

TMAIN=T3 

IF A BOILER IS IN BRANCH 3-5 THE TEMP IS THE TEMP OUT OF THE 
BOILER 

IF (IND-EQ- 1) TMAIN=770.0>3. 7DE-3*H? 

COMPUTATION TO FIND THE lEMPSRATURE OF THE COMBINED FLOW 

BASED OF THE ENTHALOPY OF THE TWO MIXING FLOWS 

HSEC= (1. 4 213 8 5E-5*TM0 D>. 22109 1) ♦TMOD>5. 637 3 

HM AIN= (1 . 5 6051 E-5*TMAIN> .22388) ♦TMAI N> 4 . 7 5 3 S 6 

HSTACK=(W8/(W8>WC)^) *HMAIN+ (WC/ (W8>WC) ) MSEC 

T5= (-C.J0 0 84 17*HSTACK >4. 33 577 W H5T ACK- 9 . 577 8 

ASSUME THE DENSITIES AT NODE 5 , COMBINED, MAIN, AND BRANCH 

RHCCC = PT5/ (R»T5) 

RHCCB=PSEC/(R*TMOD) 

RHCCM = ?MAlV (R^TMAIN) 

COMPUTE THE VELOCITIES AT NODE 5, BRANCH, COMBINED, AND MAIN 
VCW3=WC/ (RHOCa*ACWB) 

VCWC= (WC>W8[/ {RKOCC*ACWC) 

VCWM=«8/ (RHOCM*ACWM) 

COMPUTE THE VELOCITY PRESSURES AROUND NODE 5 
PVB=RHCCB*VCWB**2/(2. 0*32. 174) 

PVC=RHOCC*VCWC**2/ (2. 0*3 2. 174) 

PVM=EHOCM*VCWM^*2/ (2. 0*32. 174) 

COMPUTE STATIC PRESSURES AROUND NODE 5 

£SB=PSEC-?VB 

PSC=PT5-PVC 

PSM=PMAIN-PVM 

COMPUTE DENSITIES AROUND NODE 5 
RaCCBT=PSB/(R^TMOD) 

RHOCCT=?SC/(R*T5) 

RHCCMT=PSM/(R*TMAIN)_ 

TEST ASSUMED DENSITIES AND COMPUTED DENSITIES 
TEST1=ABS (RHOCET-RHOCE) 

TEST2=A3S ( RHOCCT-R HOC C) 
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11 



12 



14 



IZST3 = A3S (PHOCMT-RHOC.'I) 
RHCCH=RHOC2T 
RHCCC=RHOCCT 
RHCC.'l=RHOC.‘-T 



I? (TZSTKGT. 3. COl 
IF IE5T2. GT, D. 001 
IF TESTO-GT. 0. COl 



) GO TO 10 
) GO TO 10 
1 GO TO 10 

liilTIALIZE THE INLET CONDITIONS FOR BRANCH 5-6 

1 1 N = 5 

w=yc>ia 

?TIN=P0* 144. 0^DP56 
DP56=0.0 

COKPUTE FITTING LOSSES 
DO 12 I=S,N 

TYPE=WORKI (1,2) 

DATA1 = W0RKR (I, 1) 

CATA2 = WORKR (1/2 
DATA3 = KORKR (1,3) 

DATA4 = W0EKR (1,4) 

CALL FITDP (W,H?,?TIN, TIN, PTOJT, TOOT, PV, DATA 1 , DAT A2,DATA3 , 
DATA4 -TYPE, DEL?, 0. , 0. , 0 . , 0. , 0. , 0. ,0. ,0. , 0 . , 0. , 0. ,0 . , 

► 0.,0.,0.,TO) 

DP (I) =DEL? 

DP56=DP56+D£IP 
FITP7 (I) =PV 
PTIN=PTOUT 
XIN=TOOT 
CONTINUE 

EXIT PRESSURE HOST 3E ATHOSPHEEIC 
TZST=ABS (PTOUT-P0^144.0) 

IF (TEST. LT.l . 0) GO TO 14 
GO TO 1 1 
CONTINUE 

NOW THE TOTAL PRESSURE AT NODE 5 IS KNOWN FOR THE ASSUHED FLOW 
PT5=P0*1 44.0>DP56 

INITIALIZE INLET CONDITIONS FOR BRANCH 2-3 

FTIN=?T2 

TIN=TC+459.7 

DP23=0.0 

COMPUTE FITTING LOSSES 
DO 20 I=A,QQ 

TYPE=w6rKI (1,2) 

DATA1=W0RKR (I, 1) 



20 



30 



DATA2 = WORKR 1,2, 

DATA3 = WORKR (1,3) 

DATA4 = M0RKR (1,4 > 

CALL FITDP (tt2,HP, PTIN.TIN, PTOJT, TOUT ,PV , DAT A 1 , DA TA2 , DATA3, 

► DATA4,TYPE,DELP, 0 . ,ALFAD, 0. ,0. ,0. ,ADW3 , A D W M , ADW C, 0 . ,0., 0. , 

► VDWB .vfwM,VDWC,0. , TO) 

DP (I) =D£LP 

DP j3=DP23>DELP 
FITPV (I)=PV 
PTIN=PTOUT 
TIN^TOOT 
CCNTINUE 

INITIALIZE INLET CONDITIONS FOR BRANCH 3-5 

PTIN=F8*144. 0 

TIN=TS 

DP35=0.0 

COMPUTE FITTING LOSSES 
DO 35 I=C,SS 

TYPE=WORKI (1,2) 

DATA1 = W0RKE (I, 1) 

DATA2=WORKR 1,2 
DATA3 = WORKR 1,3) 

DATA4=W0RKR I,4i 

CALL FITDP (WStHP, PTIN.TIN, PTOUT, TOUT ,PV , D AT A 1 , DA TA2 , DATA 3, 

^ DATA4,TYPS,D£LP,ALFAC,0., ACW3,ACWM, ACWC,0. ,0- ,0 . , VCWB, 7cSm , 

f VCWC,0.,0. ,0.,RHOCC,TO) 
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c 

c 



35 



C 

C 



40 



45 



C 

C 



DP (I) =D£LP 
DP35=DP35+D£IP 
FITPV fl) =P V 
PTIN=PTOaT 
TIN=TOUT 

LOSS IN THE HAIN : 

:hansfered to the 



N3INE EXHAUST FLOW FOR 
.'1OD0LE COOLING FLOW AS 



IF (TYPE.EQ. 16) LCSS = DELP 
CONTINUE 

CC.'IPAHE EXIT PRESSURE TO PT5, 

3-5 AND REPEAT IF NECESSARY 
TEST=AaS (PTOUT-PT5) 

IF (TEST. LT. 1 . 0) GO TO 40 
?TIN=P0*14 4.0+DP3 5>DP56 
GO TO 3 0 
CONTINUE 

COMPARE ASSUMED LOSSES TO COMPUTED 
IF EECUIRED 
IN IOSS=IN LOSSES. 19696 
SXICSS=EXLOSS*5. 19b96 
TEST1=ABS (DP 1 2+DP23-I NLOSS) 

TEST2=ABS (DP3 5+ CP5o- S XLOSS) 

INIOSS=(DP12 + DP23)/5. 19696 
EXLOSS= (DP35+DP56) /5. 19696 

IF J (TEST1 . GT. 1 .0) .OR. (TEST2.GT. 1. 0) ) GO TO 5 
INITIALIZE LOSSES FOR BRANCH 2-4 
PTIN=PT2 
DP 24 = 0.0 
-TIN=T0^459.7 
COMPUTE FITTING LOSSES 
DO 50 1=3. RR 

TYPE=WORKI (1.2) 

DATAl = WORKH (I, 11 
DATA2=WORKR 1,2 
DATA3 = NCRKR 1,3 
DATA4=WORKR 1,4 
CALL FITDP(fcC " 



NODE 5. ENERGY IS 
A PRESSURE GAIN. 



REVISE INLET CONDITION TO 3RANCH 



LOSSES REPEAT ITERATION 



,?TIN-TIN, PTOUT,TOUT .?V, D ATA 1 , DA TA2 , DATA 3, 
,0.,ttDR3,ADWM,ADWC,0.,0.,0., 



50 



FMMAX) ♦*2+DPMAX) *5.19o96 



DATA4, TYPE ,d£lP, 0 . ,aLfAD, 0. ,0 
VDNB .vf:i«M,VDNC,0., TO) 

DP (I) =DELP 
DP24=DP24>DEIP 
FITPV (I) =PV 
PTIN=?TOUT 
TIN=TOUT 

IF (TYPE.SQ. 26) TMOD=TOUT 
CONTINUE 

INITIALIZE INLET CONDITIONS FOR BRANCH 4-5 
T4=TOUT 

?TIN=PTDUT^ (K^ ( (WC/RHOSTD*6 0. 0) 

TIN=T4 
DP45=0.0 

COMPUTE FITTING LOSSE S 
DO 60 I=D,TT 

TYPE=WORKI (1,2) 

DATAl = WORKH (I, 1) 

DATA2=WOBKR 1,2 
DATA3=WOHKR 1,3) 

DATA4=W0RKR I,4j 

CALL FITDP ( WC, HP, ? TIN, TIN, PTOUT , TOUT ,PV , DATA 1 , DA TA2 , DATA 3, 

♦ DATA4 .TYPE, DELP. ALFA C.O. , AC N3,ACWM, ACUC, 0. , 0 . ,0 . , VC^^3, VCNM, 

♦ VCWC ,5.,0. ,0., RHOCC, lO) 

DP (I) =DELP 
DP45=DP45+D£IP 



FITPV (I) =PV 
PTIN= PTOUT 
TIN=TOUT 
THE MODULE FLOW GET A BOOST 
OF MOMENTUM FROM THE HIGHER 
IF (TYPE.EQ. 15) GAIN=D£LP 



IN PRESSURE 3Y A TRANSFER 
VELOCITY MAIN EXHAUST FLCW 
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i:ioD=TcaT 



60 

c 



c 

c 



c 

70 



50 0 
600 
60 1 



IF (TYPE^ZQ. 26) 

CCNTINOZ 

TEST THAT EXIT FF.ESSORE IS PT5, IF N*OT REPEAT 
“EST=ABS ( PTOUT-FT5) 



)) G 
)W I 



GO TO 70 



H INCREASED 3Y SHALL STEPS UNTIL SYSTSH IS 



IF {TEST. LT. 1-0) 

COOLING FLOt 
HATCHED 
WC = WC*0 - 1 
GO TO 5 

SYSTEH IS HATCHED PRINT RESULTS 

CALL COTPOT(TO ,PO.HOHID, HF.NPT, N, WORKI , CP, F I TP V, I NLOSS , EXLOSS ,?C, 
w2,w8 .P8, T3 -SFC,i5 4, NG, Serial, thod) 

DP 12 = 5piS/5I 19SS6 
DP23 = DP23/5, 1 9696 
0P35=D?35/5. 19696 
DP5o = DP56/5. 19696 
D?24 = D?2U/5. 196S6 
DP45 = DP45/5- 1 9696 
PRINT SRANCH LOSS SUHHARY 

WRITE (4,601) LP12,DP23, D?35,DP56, DP24, DP45 

CONTINUE 



FOFHAT (* 
^T(/ 



FOEHA" 



POWER POINT IS HOT ON THE PERFORHANCE HAP.M 
/5X,’LqSS BRANCH 1- 2 : • , F 1 2 . 2, /5 X , ; LOSS EP ANC H 2-3 : * , FI 2. 2 , 



EETURN 

END 



/5X;»L0SS BRANCH 3- 5 ; » TS 1 2 • 2 /5 X i » LO S S ERANCH 5-6 :*;f 12.2; 
/5X,*LOSS BRANCH 2- 4 ; » , F 1 2 . 2 , /iX , * LO SS BRANCH 4-5:%F12.2) 
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lonnnnnnnn 



SYSTS.'I FOUR .'lATCHING SUERCOTINE 






C 

c 



THIS SYSTEM HAS SEPARATE INLETS FOR THE ENGINE AIR FLOW AND 
MODULE TOOLING* NODE 5 IS THE JUNCTION OF MODULE AIR AND 
ENGINE EXHAUST. FOR THE ASSUMED FLOW THE PRESSURE AT NODS 
5 IS COMPUTED DOWN THE COMBINED EXHAUST. THEN THE EXIT 
PRESSURE FROM BRANCHES 3-5 AND 4-5 SHOULD MATCH PT5. IF NOT 
THE ITERATION PROCESS CONTINUES. 

SUBROUTINE SYS 4 (SERI A L, N , WORKI , WOR KR , H P , N? T , FI 1 1 S T, 10 , ? 0 , HU MID , 

+ ALFAC .ACWB, ACWC,ACWH. 

+ RHOSTD.CFMO,CFMMAX,D?MAX.K) 

REAL WOaXR ,HP, NPT.TO. PO. HUMID ,CFMMAX ,CF MO , D PMAX, K ,TT2, W8 , P3, T3 , 

+ INLOSS, EXICSS ,FANDP,DP 13.DP24,DP35,DP45 ,PV, ?TIN,?TOUT, DATA1 , 

♦ DATA2,DATA3.T*ST, DP,FITPV, WC , RH OST 6, T EST 1 , T EST 2 , W C N , TM OD , 

Tc;a .q Fr . Mr, hDSA . 




INTEGER WORKI, FIT 1ST, OFF , N , PP, ^Q, HR, SS , TT , A , 3 , C , D , E , SEE xAL , TY PE , 
f IND 

DIMENSION WORKI(20 0,2) ,WORKR(200, 4) , FIT 1ST ( 6) , DP (20 0) ,FITPV (200) 
GAS CONSTANT 



DATA Fy53. 3424/ 


PP=FIT1ST (2) -1 



THE STARTING AND STOPPING INDEX FOR A BRANCH IS COMPUTED 



INL: 



AND EXHAUST LOSSES 



QQ=FIT1ST (3 - 1 
RR = FIT1ST (4) - 1 
5S = FIT1STj5) -1 
A=FIT1ST (2) 

B=FIT1ST i3 
C=FIT1ST 4) 

D = fIT1ST I 5) 

INITIALIZE THE 
INL0SS=4. 0 
EXLOS£=8.0 

INITIALIZE THE GAIN AND LOSS AT NODE 5 
GAIN = -30. 0 
LOSS=30- 0 

INITIALIZETHE CCOLING FLOW 
WC=CFMAMX*RHO STD/6 0.0 
INTIALIZE THE BRANCH LOSSES 
DP45=100. 0 
DP56 = 10D.0 

INITIALIZE THE MODULE TEMPERATURE 
TMCD = 710. 0 

INITIALIZE THE PRESSURES AT NODE 5 
PT5=P0*1 44 .0 + DP56 
PM AIN=PT5+LOS3 
PSEC=PT5 + GAIN 

SEARCH FOR A WASTE HEAT BOILER IN BRANCH 3-5 
IND=0 

DO 4 I=C.SS 

TYPE= WORKI (1.2) 

IF (TYPE.EQ. 27) IND = 1 
CONTINUE 

GET INITIAL PERFORMANCE OF ENGINE WITH ASSUMED CONDITIONS 
CALL ENGINE(INLCSS,EXLOSS,TO,PO,HUMID,H?,NPT,W2, W8, P3, T3,SFC, 
♦ T54,NG,0FF) 

IF (OFF.EQ. 0) GC TO 6 
WRITS (6 .600) 

GO TO 500 
CONTINUE 

INITIALIZE INLET CONDITIONS FOR BRANCH 1-3 

DP13=0.0 

PTIN=P0* 1 44. 0 

TIN=T0+459.7 
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nnooononn 



c 



a 

c 

c 

c 

c 



c 



c 

10 



c 



c 



c 



c 



c 

1 1 



c 



,?p 



^WORKI (1-2) 
l=;?ORKR (I, 1] 



CO^.PUTE FITTING LOSSES 
DO 8 :=1 

TYPS= 

DATA 1 
DATA2 
DATA3 
DATA4 
CALL 

► DATA4 



DP a 
DP 1J= 
FITP7 
PTIN= 



= WOHKR 1,2) 

= WOEKR (1,3 
= WOHKR Jl, 4 ) 

FITDP (^2, HP-? TIN 
-TYPE, DLL?, 0- ,0. 
0. ,T0) 

= DZLP 
DP 13 + DZL? 

PTOOT 



,TIN-PTO'JT.TOUT 

, 0 «, 0 -,D- , 0 - , 0 - 



,PV, DATA1 

, 0 - , 0 -, 0 - 



DATA2, DATA3, 

0 . , 0 . , 0. ,0 . , 



TIN=rOUT 

CONTINUE 

COMPUTE NODE 5 IARA:1ETEHS 

TEMPERATUHE OF 3AIN JET, ENGINE EXHAUST 

T.'1AIN=T3 

IF A BOILER IS INSTALLED THE TE .'^PE RA TOR £ IS THE 3CILEE EXIT 
IF (IND.EQ. 1) TMAIN = 77 0-0+3- 7as-3*HP 

COMPUTE THE COMBINED FLCS TEMPERATURE 3Y MIXING ENTHALOPIES 

HSEC= (1- 4 213 8 5E-5*TMOD^- 22109 1) ♦TMOD^5.o373 

HMAIN=(1 . 5 60 51 E-5*TMA IIH .22 338) * TM AI 4 . 75 3 9 6 

HSTACK=]W8/(W8+wC) ) ♦HMAIN + (NC/ (W3 + WC) ) * KSEC 

T5= (-C.J00 94 17*HSTACX^-4. 33 577) ♦ HSTACK-9 . 57 7 8 

ASSUME DENSITIES AT NODE 5, COMBINED, BRANCH, MAIN 

RHCCC = PT5/ (R*T5) ■ 

R HOC 3=?S EC / ( P ♦ TMOD)_ 

RHCCM = PMAIN/ (R^TMAIN) 

COMPUTE VELOCITIES AT NODE 5, BRANCH, COMBINED, MAIN 
VCNB=WC/ (RHOCB^ACNB) 

VCNC= (WC<'N8) / (HHCCC^ACWC) 

VCT!M = W8/ (RHOCM^ACWM) 

COMPUTE ^HE TELOCITY PRESSURES AROUND NODE 5 
?V3=RnOCB* VCWB**2/ (2. 0*32. 174) 

P7C = RHOCC=>7CNC**2/ 2. 0*32. 174) 

tVM=RHOC:i*7CWM**2/ l2. 0*32. 174 

COMPUTE STATIC PRESSURES AROUND NODE 5 

ESE=RSEC-PVB 

RSC=PT5-PVC 

?SM= tMAlN-PVM 

COMPUTE DENSITIES AROUND NODE 3 
RHCCET=PS3/(R*TM0D) 

RHCCCT=PSC/(a*T5) 

RHCCMT=?5M/(R*TMAIN1 

TEST ASSUMED DENSITIES AND COMPUTED DENSITIES 
TEST1=ABS (RHOCET-RHOC B) 

TEST2=ABS ( RH OC CT- RHOC C) 

TFST3=A3S {PHOCMT-HHOC M 
RHCC£=RHO(:3T 
RHCCC=RHOCCT 
RHCCM = RHOCMT 

IF (TEST1.GT. 0. 001) GO TO 10 

IF TEST2. GT. 0. 001) GO TO 10 

I? 1TEST3.GT. 0. 0C1) GO TO 10 

INITIALIZE INLET CONDITIONS FOR BRANCH 5-6 

TIN=T5 

PTIN=P0*1 44. 0^CP56 

W=^C+W 8 

D?56=0.D 



COMPUTE FITTING LOSSES 
DO 12 I=D-N 

TYPE=w6rKI (1,2) 

DATA1 = WORXfl (I, 1 
DATA2=WORKR 1,2 
DATA3 = WORKE 1,3 
DATA4 = ;?0aKR 1 - 4 ) 

CALL FITDP (W,HP,PTIN, 



TIN,PT0UT 



T0UT,?V,DATA1, DATA2, DATA3 



EMP 
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12 



14 



30 



DATA4- TYPE, EELP^O. ^0.,0.,0,,0.,0w0.,0., 
0. /TO ) 

DP (I) =D£LP 
DP56=DP56 + DELP 



0. /O. /O, ,0. / O./O . 



FITPV (I) =PV 
PTIN=?TOUT 
TIN=rOUT 
CCNTINOE 

EXIT PRESSURE HOST BE ATMOSPHERIC 
TEST=A3S (PTOOT-PO*144.0) 

IF <IEST.LT- 1.0) GO TO 14 
GO TO 11 
CONTINUE 

TOTAL PRESSURE AT NODE FITE 3ASSD ON FLCW IN BRANCH 5-6 
IT5 = P0*1 44.0 + DP56 

INITIALIZE INLET CONCITIONS FOR 3RAxNCH 3-5 

PTIN=P8*144.0 

TIN=T8 

D?35=0.0 

COMPUTE FITTING LOSSES 
DO 35 I=C.SS 

TY?E=RORKI(I/2) 

(i/i) 



DATA1=tfORKH 
DATA2=WORKR 
DATA3=WORKR 1/3 
DATA4=W0EKR 1/4 
CALL FITD?(W8/H 



MiUr' I wO/iiP/PTIN .TIN/ PXOUT.TOUT.pt, DATA 1 / DA TA2, DATA 3, 
DATA4.TYPE/D£L?.ALFAC,0.,AC'^3/ACI;M/ ACWC/ 0. /O. /0./TCNE/7CNM/ 
TCWC/0.,0. /0-/RH0CC/ t5) 

DPil) =DEL? 



MOMENTUM EXCHANGE WITH SLOWER JET/ 



DPj5=DP35 + D£IP 
FITPT <I) =P7 
PTIN= PTOUT 
TIN=TOOT 

C Less OF PRESSURE DUE TO 

C THE MODULE COOLING FLOW 

IF (TYPE.EQ. 16) LOSS = D£L? 

35 CCNTINOS 

C E5ANCH iXIT PRESSUH2 MOST 3E PT 5 OR REPEAT 

TEST=AES (PT00T-PT5) 

IF (TEST. LT. 1 . 0 ) GO TO 40 
PTIN=P0*144.0+DP35+DP56 
GO TO 30 
40 CONTINOS 

C COMPARE ASSUMED LOSSES TO COMPUTED LOSSES, REPEAT ITERATION IF 

C RECUIRED 

INI0S5=INL0SS»5.19696 
EXL0SS=EXL0SS*5.1S696 



TEST1=ABS 

TEST2=ABS 

i;:ioss=DP 



■DPI 3-INLC3S 



, ’3S) 

;dP35+DP56-EXLCS3) 



3/5.19696 

EXLCSS= (DP35 + DP56) /5. 19696 

IF ( (TESi 1 .GT. 1 .0) .OR. (TEST2.3T. 1 .0) ) GO TO 
INITIALIZE INLET CONDITIONS FOR SRANCa 2-4 
?TIN=?0* 144. 0 
TIN=TC+459 .7 
DP 24=0.0 

CCMPUIE FITTING LOSSES 
DO 20 I=B,QQ 

TX?S=MOEKI (1,2) 

DATA1=W0BKR ' 

DATA2=HOEKE 
DATA3=HORKR 
D A TA4 — W ORK R 

CALL FITDP(fiC',HP,PTIN, TIN, PTOUT, TOUT, ?7, DATA1,DATA2, DATA3, 
- w£l?,0 . , ALFAD, 0. , 0. ,0. , ADWB, ADWM, ADHC,0. ,0. , 



DATA4,TYPS 



765B,v£h«,7DHC,0.,0.,I0J 
DP (I) =DEL? 

DP 24= DP 24 «-D EL? 
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FITPV (I) =?V 

PTi:i=?TOUT 

TIN=rOOT 



20 



60 



70 



IF (TYPE 
CCNTI.JaE 



,EQ- 26) T.''*OD = TOnT 



II4=?TOOT 

T4=T0UT 

INITIALIZE INLET CONDITIONS FOR 



BRANCH a-5 



PTIN=FT4+ (K» ( (WC/RnOS TD^6C. 0) -CFMNAX) *♦ 2^DP .1AX) * 5 . 1 96 96 

TIN=T4 

DP45=0.0 

C0XP0T3 FITTING LOSSES 
DC 60 1=3, PR 

TYPE^WORKI (1-2) 

DATA1 = yORKR (I, 1) 

DATA2 = WORKR 1,2) 

DATA3 = WORKH 1,3) 

DAIA4=»0RKR I,4i 

CALL FITDPjwc, HP,? TIN, TIN, PTOOT , TOUT - ?V , DAT A 1 , DA TA2 -DATA 3, 

► DATA4 - TYPS,3ELP- A LFAC-0. , ACNB , AC , ACWC , 0. , 0 • ^0 . , 7CP3, VCftil , 

► VCHC ,0. . 0. ,0.,RHOCC, lO) 

DP (I) =DELP 
DP45=DP45>D£LP 

FITPV (I) =P7 



PTIN= PTOUT 
TIN=TOUT 
GAIN IS RESULT 
IF (TYPE.EQ. 15) 
‘b) 



OF .^OMENTUH TRANSFER FROM 

GAI N=DELP 

•TMOD=TOUT 



EXHAUST FLOW 



IF TYPE.EQ. 2b) 

CONTINUE 

EXIT PRESSURE SHOULD 3E PT5 OR REPEAT ITERATION 
TEST=ABS (PTOUT-PT5) 

IF (TEST. LT. 1.0) GO TO 70 

ADD A SHALL INCREHENT TO THE COOLING FLOW AND REPEAT ITERATION 

wc=wc^-o. 1 

GO TO 5 

SYSTEH IS HATCHED, OUTPUT RESULTS 

CALL OUTPUT(TO,PO,HUHID,HP, NPT, N, WOHKI, DP , FI TP V, I NLOSS , EXLOSS ,WC, 
+ W2.W3 -P8, T8 -SFC,X5 4, NG, SERIAL, THOD) 

DP 13 = 6pi5/5. 19596 
DP24 = DP24/5. 19696 
DP35 = DP35/5. 19696 
DP45 = DP45/5. 19696 
DP56 = DP56/5. 19696 
OUTPUT BRANCH LOSS SUMMARY 

j4,6 01) DP 13, DP 24,DP3 5,DP4 5,DP56 

POWER POINT IS NOT ON THE PERFOPMANCE MAP.*) 

/5X,*LOSS BRANCH 1-3 : * , F 1 2. 2 , /5X , * LO SS BRANCH 2-4:*,F12.2, 
/5X,*LOSS BRANCH 3-5 : • , F 1 2. 2, /5X , * LO SS BRANCH 4-5:*,F12.2, 
/5X,*LOSS BRANCH 5-6:*,F12.2) 



500 


WRITE 

CCNTINI 


600 


FORMAT 


bOI 


FORMAT 




♦ 

♦ 

RETURN 

END 
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DO o n no o on nnononoonoonoonn 



SYSTE.'I FIVE HATCHING SaBROOTIHE 



THIS SISTEH HAS COMBINED INLETS AND EXH 
ANC THE MODULE COOLING. THERE IS NO CO 
OF CCCLING AIR IS ACCOMPLISHED BY AN ED 
ENGINE EXHAUST ILANE. THERE IS A TRANS 
HIGH SPEED JET (ENGINE EXHAUST THROUGH 
JET (MODULE COOLING FLOW). THE SCHEME 
COOLING FLO^ AND SEE IF THERE IS ENOUGH 
EDUCTOR ARRANGEMENT TO MOTE THE AIR. A 
WILL HAVE EXCESS GAIN AT THIS LOW FLOW 
CAN CONIINUE, INCREASING THE COOLING FL 
MATCHED. 



AUST FLOWS FOR THE ENGINE 
OLING FAN. THE MOVEMENT 
UCTOR ARRANGEMENT AT THE 
FEROF MOMENTUM FROM A 
A NOZZLE) TO A LOW SPEED 
IS TO START WITH A SMALL 
GAIN AVAILABLE FROM THE 
PROPERLY DESIGNED SYSTEM 
AND THE ITERATION PROCESS 
OW UNTIL THE SYSTEM IS 



m ^ ^ m *** ^ ****** ^ ^ ** ^ * ^ m *** * **************** ***:^ ***^*^ 

SUBROUTINE SYS 5 (SERI A L, N, WORKI , WORKP. , HP , NP T , FIT 1 ST, TO, ? 0, HU MI D , 

+ ALFAD.ADHB, ADHC,ADVIM,ALrAC, ACWE, ACWC, ACHM) 

REAL WORKE,HP, NPT,T0, PO , HU M ID, C FMMAX , C FMO. D ? MA X, K,W2, W8 .?8, T3 , 

+ INLOSS,£XLOSS,FANDP,DP13,D?2 4,D?35,D?4 5,PV,PTIN,PTOUr, DATA1 , 

> DAI A2, DAT A3, TEST ,DP,FITPV, WC , RHOS ID, TE ST 1 , T EST2 ,WC N , IM OD , 

4 T54 ,SFC,NG,D?5b, 

+ DATA4 ,R, ALrAC, ACWB, ACWC, ACWM , VCWB. VCWC , VOW M , TM AI N , TMOD . HSEC , 

+ HMAIN.HSTACK,T4, T5 , W, G AI N , LOSS , PS £c, PM Al N , ?T 4, FT5 , T EST 3 . 

♦ PVB,PVC, PVM.PSB, PSC,PSM, RHOC3T,RHOCCT,RHOCMT,TEST1 ,ISSl2 

INTEGER WORKI ,FIT1ST, OFF , N , P? , QQ, R R , SS , A , B , C , D , S ERI AL, T YPE, 

> IND 

DIMENSION WORKI (200,2) ,HORKR ('20 0, 4 ) ^ FIX 1ST ( 6) ^ DP ( 20 0) , FITPV (2 00) 
GAS CONSTANT 
DATA R/53. 3424/ 

COMPUTE THE STARTING AND STOPPING POINTS FOR THE BRANCH FITTINGS. 
PP=FIT1ST (2) - 1 
CC=FIT1ST 
R£=FIT1ST 
SS=FIT1ST 
A=FIT1ST (_ 

B=FIT1ST (3, 

C=FIT 1ST 4 
D=r ITISljSl 
INITIALIZE 




THE INLET AND EXHAUST LOSSES (INCH WG) 



:HE cooling flow to the minimum REQUIRED FOR THE ENGINE 



INJ 

INL0SS=4. 0 
EXLOSS=8. 0 

INITIALIZE THE GAIN OR PRESSURE RISE TO MODULE AIR FLOW IN THE 
EDUCTOR 
GAIN=-30. 0 
LOSS = 30. 0 
INITIALIZE 
WC=7 . 5 

initiIlize parameters to start iteration 
DPB b=100. 0 
TMCD=710. 0 
PT5 = P0^1 44.0 + DP56 
PiaAIN = PT5 + LOSS 
PSEC = ?T5<'GAIN 

SEARCH FOR A WASTE HEAT BOILER, THERE PROBABLY IS NOT A BOILER 
INSTALLED IN THIS SYSTEM. 

IND=0 

DO 4 I=C,SS 

TYPE=WORKI (1,2) 

IF (TYPE.EQ. 27) IND = 1 
CONTINUE 

GST ENGINE PERFORMANCE BASED ON ASSUMED CONDITIONS 

CALL £NGINS(INLCSS,EXLOSS,TO, ?0 , HU MI D, HP, N P T , W 2 , W 8, P8 , T 8 , SF C , 

♦ T54,NG,0FF) 

IF (OFF.EQ. 0) GO TO 6 
WRITE (6 .600) 

GO TO 5 00 
CONTINUE 

INITIALIZE INLET CONDITIONS FOR BRANCH 1-2 
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D? 12=0.0 

?TIN = ?0* 144. 0 

IIN=T0>459.7 

COt'IPO'IE FITTING LOSSES 
DO 3 1=1 ,?? 

TYPE=^ORKI (1,2) 
DATA1=W0RK2 (x, 1) 
DATA2 = WOeKR il, 2 
DATA3 = WORKR 1 1,3 
DATA4 = R0RKR il,4 
CALL FITDP (W 

niTau TVDp n 



, ,ftp,?TIM,TIN,PTOUT,TOUT,PV, DATA1,DATA2,DAIA3 , 
DATA4.T YPE;Dr;LPrO. , 0 . , 0 . , 0 . , 0. , 0 . , 0 . ,0 . , 0 . , 0 . , 0. , 0 . , 0. , 0 . , 

D. ,T0) 

DP (I) =D£LP 
DP12=DP12>DHI? 



FITPV (I)=PV 
PTIN=PTOUT 
TIN=TOOT 
3 CONTINUE 

C CC:iPDTE PARA.'IETERS AT NODES 2 5 5 

C TOTAL PRESSURE AT NODE 2 (PSF) 

PT2=F0*144.0-DP12 
C DENSITY AT NODE 2 

RHC2= (PT2-PV) / ( (TO^-45 9.71 *R) 

C VELOCxTIES AT NODE 2 , BRANCH, COHBINED, .MAIN 

7DWB = PC/ (RH02* ADNB) 

VD «C= (WOf y 2) / ( RHC2*ADWC) 

7DWM=W2/ (RH02<^ADyM) 

C TEMPERATURE IN MAIN JET (ENGINE EXHAUST) AT NODE 5 

TMAIN=T9 

C IF A ECILER IS INSTALLED TMAIN IS 3CILZR EXIT TEMP 

IF(IND. EQ. 1) TMAIN = 770. 0>3. 70S-3*HP 
C COMPUTE COMBINED FLOW TEMPERATURE BASE ON ENTKALOPIES 

HSEC= (1. 4 213 8 5E-5*TM0D+. 22109 1) ^TMOD + 5. 637 3 
HMAIN= (1 . 5 6051 £-5*TMAIN^ .22388) ♦TMAI Nf 4 . 7539 6 
HSTACX=(N8/(W8+RC) 1 ♦ H MAIN+ ( WC/ ( W3 ♦WC) ) HSEC 
T5= (-C. J0 0 84 17^Hs!:aC:< +4. 33 577) ♦ HSTACK-9 . 57 7 8 
ASSUME DENSITIES AT NODE 5, COMBINED, BRANCH, MAIN 



RHCCC=PT5/ (fi*T5) 
RHCCB=PSEC/(H*TKOD) 
RHCCM = PMAIN/ (R ♦TMAIN) 



: COMPUTE VELOCITIES AT NODE 5, BRANCH, COMBINED, MAIN 

10 7Cy3=WC/ (RHOC2»ACWB) 

7C aC= (WC + W8) / (RHCCC*ACWC) 

7C«M = W3/ (RHOCM^ACNM) 

: COMPUTE THE 7EI0CITY PRESSURES AROUND NODE 5 

?7E = RHCC3*7CWB**2/(2. 0*3 2. 174) 

?7C=RHCCC^7CUC**2/(2. 0*32.174 
FVM=RHOCM*7CNM**2/ (2. 0*32. 174 

: COMPUTE STATIC PRESSURES AROUND NODE 5 

FSE=FSSC-PV3 
FSC=PT5-?7C 
FSM=FMAIN-?7M 

: COMPUTE DENSITIES AROUND NODE 5 

RHCCBT=?SB/(R*TMOD) 

RHCCCT=?SC/(R*T5) 

RHCCMT=?SM/(B*TMAIN) 

: TEST ASSUMED DENSITIES AND COMPUTED DENSITIES 

TEST1=ABS (RHOCET-RHOC E 
TEST2=A3S ( RHO CCT-R HOC C 
T£ST3=ABS]rHOCMT-RHOCM 
RHCCS = RHOCBT 
RHCCC=RHOCCT 
RHCCM=RHOCMT 

IF (TEST1 ,GT.0. 001) GO TO 10 
If (TEST2. GT. 0. 001) GO TO 10 
IF]TEST3.GT. 0. COlj GO TC 10 

: INITIALIZE INLET CONDITIONS FOR BRANCH 5-6 
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11 



12 



14 



1IN=T5 

PTIN = FO* 1 44. 0+ EP56 
DP 56 = 0.0 
W — WC + */t 3 

CC«PUTZ FITTING LOSSES 
DO 12 1= D , N 

TYPE=HORKI (1,2) 

DATA1 = ;^CRKH (I, 1) 

DATA2 = ffOfiKR (1,2) 

CATA3 = ;^OfiKR (1,3) 

DATA4=WORKR 1,4) 

CALL FITDP ( W.HP,?TIN, TIN , P TO U T , TO LT , P V, D AT A 1 , D AT A2 , D ATA3 , 

4 DATA4 . TypS^D5LP,0. ^0.,0.^0.,0.,0.,0.,0.,0.,0.,0.,0.,0.,0., 
4 0.,T0) 

DP (I) =DELP 
DF56=DP564DELP 
FITPV (I) =PV 
PTIN= PTOUT 
TIN-TOUT 
CONTINUE 

EXIT PRESSURE SHOULD 3E ATNOSPHESIC, IF NOT REPEAT 
TEST=ABS (FTOUT-PO*144.0) 

IF (TEST. LT. 1.0) GO TO 14 
GO TO 11 
CONTINUE 

FT5=P0^1 44 .04DP56 

INITIALIZE INLET CONDITIONS FOR 3HANCH 2-3 

PTIN=PT2 

TIN=T04459.7 

DP23=0.0 

CC!*PUTE FITTING LOSSES 
DO 20 I=A,QQ 

TYPE=WORKI (1,2) 

DATAl=WORKR (I, 1) 

DATA2 = WOHKR (1,2) 

DATA3 = WORKR (1,3) 

CATA4=NOHKR (1,4) 

CALL FITDP (R2, HP,? TIN -TIN, PTOU T , TOUT . PV , DATAl , DATA2 , DATA 3, 
4 DATA4,TYPE .£ELP,a., ALFAD,0. ,0. , 0 . , A DWB , A D W W , ADWC , 0 . ,0. , 

4 VDRB .VDWM, VDWC,0., 0., TO) 

DPiD=D£L^ 

DPz3=DF234DELP 
FITPV 



= PTO 



PTIIL 
TIN=TOUT 



= PV 
UT 



20 


CONTINUE 




C 


INITIALIZE INLET 


CONDT 




PTIN=P8*144. 0 




30 


1IN=T9 






DP35=C.O 




C 


eeXPUTE FITTING 


LOSSES 



BRANCH 3-5 



DO 35 I=C,SS 

TY?E=WORKI (1,2) 
DATAl=WOHKR (I, 1} 
CATA2 = NORKR 1,2^ 
DATA3=WORKR (1,3 
CATA4 = W0RKRJI,4 I 
CALL FITDP ’ 



ALL FITDP U a, HP, P TIN , TIN, PTOUT , TOUT , ?V , DATAl , DA I A2 , D AT A3. 
DATA4 .TYPE^DELP, ALF AC. 0. , AC N3 , ACNM , ACNC , 0. , 0 . , 0 . , VC WB , 7 C« N , 

vcwo ,6..o. ^o.,Rfiocc,i6) 

DP (I) =DELP 

35=1 ^ 



DP 



OP354DE1P 



35 



FITPV fI)=PV 
PTIN=PTOUT 
TIN-TOUT 

Less IS FROK MOMENTUM TRANSF 
IF (TYPE.EQ. 16) LOSS=D£LF 
CONTINUE 

EXIT PRESSURE SHOULD BE FT5, IF NOT REPEAT 



0 COOLING FLOW 
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40 



60 



70 



IZST=ABS (PTOUT-FT5) 

IF (TEST. LT. 1.0) GO TO 40 
PTIN=P0*1 4 4.0>DP35+DPf 



DATA2=WORKR 

DATA3=WORXR 

DATA4=HORKR 



500 

600 

601 



► DP35 +DP56 

GO TO 3 0 
CCNTINUE 

CC:iPAF.S ASSU.^ED LOSSES WITH COHPOTEO LOSSES 
INICSS=INLCSS*5. 19o96 
EXICSS=E XLOSS^ 5. 19696 
TEST1=ABS (OP1 2+CP2 3-I :aOSS) 

TEST2=ABS (dP3 5^CP5o-E XLOSS) 

IULOS3=(DP 12 + DP23) /5. 196 96 
EXLCSS=]dP35 ^DP56) /5. 19696 

IF ((TEST1.GT. 1 .0) .OR. (TEST2.GT. 1.0) ) GO TO 5 
INITIALIZE INLET CONDITIONS FOR BRANCH 2-5, NO FAN (NODE 4) 
PTIN=PT2 
TI N=T0+459.7 
DP25=0. 0 
DO 60 1=3, RE 

TY?E=WORKI (1,2) 

DATA1 = WORXR 1,1) 

^^2 

il,4i 

CALL FITDP {l»C,HP,P IIN.TIN, PTOUI , TOUT ,P V , DATA 1 , DA IA2 , DATA 3, 

D ATA 4, TY P E, DEL?, A LF A C.O. , ACW3, AChS, ACilC , 0. , 0 . ,0 . , 7CrQ, 7CWH, 

► VCWC,0.,0. ,0., RHOCC, TO) 

DP (I) =D£LP 

DP25=DP25+DEIP 

FITP7(I)=PV 

PTIN=?TCUT 

TIN=r0UT 

GAIN IS FROM MOMENTUM TRANSFER FROM ENGINE EXHAUST 
IF (TYPE .EQ. 15) GAI N = D£LP 
IF TYPE.EQ. 26) TMOD=IOUT 
CONTINUE 

EXIT PRESSURE SHOULD BE PT5, IF NOT REPEAT ITERATION 
TEST=ABS (PTOUT-PT5) 

IF (TEST. LT. 1.0) GO TO 70 

INCREASE COCLING FLO^ UNTIL SYSTEM IS MATCHED 
WC = WC^*0 . 1 
GO TO 5 

SYSTEM IS MATCHED, OUTPUT RESUSTS 

CALL OUTPUT (TO ,P0, HUMID, HP,NPT, N,NORKI, E? , F ITPV , I NLOSS , EXLOSS,WC 
W2 ,W3 .P8, TS ,SFC,I5 4, NG, SERIAL, I MOD) 

D?12 = DPiV5- 19^56 

D?23 = DP23/5. 196S6 

DP35=DP35/5. 1 96S6 

DP56 = DP5o/5. 19696 

DP 25 = DP25/5. 19696 

CUTPUr BRANCH LOSS SUMMARY 

WRITS (U,601) DP12,D?23,DP35,DP56 ,DP25 

C C NXI NuE 

fOHMAIC POWER POINT IS NOT ON THE PERFORMANCE MAP.') 
?CRMAT(/5X,' LOSS BRANCH 1-2: • , F12. 2 ,/SX , ' LOSS BRANCH 2-3;', F12. 

+ /5X,'LOSS BRANCH 3- 5 ; ' , F 12. 2, /5X , ' LO SS BRAiNCH 5-6:', F12. 

* /5X,'LO££ BRANCH 2-5:',F12.2) 

RETURN 
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SYSTEM SIX MATCHI:^G S OBROUTINE 

THIS SYSTEM HAS SEPARATE INLETS FOR COOLING FLOW AND ENGINE AIR. 
THE TWO FLCW JOIN AT AN EEUCTOR ARANGEMENI AT THE ENGINE 2XHA0ST 
PLANE. THERE IS NO COOLING FAN INSTALLED. THE EDUCTOR PROVIDES 
ALL THE PUMPING ACTION 3Y MOMENTUM TRANSFER FROM A HIGH VELOCITY 
JET (ENGINE EXHAUST THROUGH A NOEELE) TO A LOW VELOCITY JET 
(MCDOIE COOLING FLOW) . 

^SUERO UTINE S YS MSERI A L , N ^ WCRKI ^ NOR KR , HP , NPT , FIT 1 ST* TO , P0*HUMID,**^ 
+ ALFAC, ACWB, ACWC.ACWM) 

REAL WOBKR,HP. NPT,T0, PO^ HU MID , C FMM AX . CFMO, D PMA X , X /W 2, W 8 ,?3 , 13 , 

+ INLOSS. EXLCSS, DP 13 , DP25 , DP 35 , LPd6 . ?V, PTIN ^ PTCUT^ D AT A1 . 

+ DAT A2, 5 AT A3, I EST ^ DP, FIT? V, WC ,RriOS I D, I E S T 1 , TE ST 2 , WC N , TMOD , 

+ '^54,SFCNG 

+ DATAU ,RrALrAC,ACWB, ACWC, ACWM,7C:<B, VCNC , VC WM , TM AI N , T MOD , MSEC , 

+ HMAIN.HSTACK, 15 , W ,G AI N , LOS 3 , PSEC, P M AI N , PT5 , T EST3 , 

+ PVB.PVC, PVM.PSB, PSC,?SM, RH0C3T,RH0CCI, RHCCMT.TESTI ,IEST2 

INTEGER WORKI,FIT1ST, OFF , N , PP , QQ , R R , A , 3 , C, S ER lAL , TYPE, 

♦ IND 

DIMENSION WO EKI (20 0,2 ) , WOH KE (20 0 , 4 ) , FIT IS! (6) , DP (20 0) , FITPV (200) 
GAS CONSTANT 
DATA R/53.3424/ 

STARTING AND STOPPING POINTS FOR THE BRANCH FITTING INDEX 
PP = FIT1ST (2) -1 
QC = FIT1ST (3) -1 
ER = FIT1ST]4) - 1 
A=FIT1Sr (2) 

B=FIT1ST (3) 

C=FITlSr]4) 

INITIALIZE THE INLET AND EXHAUST DUCT LOSSES (INCH WG) 

INI0SS=4. 0 
EXLOSS=8- 0 

INITIALIZE THE GAIN AND LOSS IN THE EDUCTOR (PSF) 

GAIN=-30. 0 
LCSS = 30. 0 

INITIALIZE TEH COOLING FLOW TO THE MINIMUM REQUIRED 
WC =7 . 5 

INITIALIZE OTHER VALUES 
DP5o=100. 0 
1MCD=710. 0 
PT5=P0*1 44.0 + DP56 
PMAIN=PT5 + LOSS 
?SEC=?T5 + GAIN 

SEARCH FOR A BCILER, THERE PROBABLY IS NOT ONE INSTALLED FOR THIS 

SYSTEM 

IND=0 

DC 4 I=C,HR 

TYPS = WORKI (1,2) 

If (TYPE.EQ. 27) IND=1 
CONTINUE 

GET ENGINE PERFCHMANCE FOR THE ASSUMED CONDITIONS 

CALL ENGINE (IN LOSS, EX LOSS, TO, ?0, a U MID, HP, N PI, W 2, W 8, P8,T3,SFC, 

+ T54,NG,OFF) 

IF (OFF.EQ. 0) GO TO 6 
WRITS (6 .600) 

GO TO 5 00 
CONTINUE 

INITIALIZE THE INLET CONDITIONS FOR BRANCH 1-3 

DP13=0.0 

PTIN = P0* 144, 0 

TIN=T0+459.7 

COMPUTE FITTING LOSSES 

DO 8 1=1 ,PP 

TYPE=WORKI (1,2) 

DATA1=WCRKR (I, 1) 

DATA2 = KORKR (1,2) 
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8 

C 

c 

c 

c 



c 



c 

10 



c 



c 



c 



c 



c 



11 



c 



DATA3 = WORKR (1,3) 

DATA4 = WORKR (1,4) 

CALL ?ITD? ( -2,n?c?TIN,TIN. PI0JT,T0UT,?7, DAT A 1 , LA IA2 , DATA 3, 

DATA4, T Y?E , DEL?, J, ,0.,0,,5.,0.,5.,0.,0-,0.,0,,0,,0.,0.,0., 

0 . ' 

DP 
DP 



0. ,ro) 

fl) =DELP 
T3=DP 13>DE1P 
“ =p V 



FITPV (I) = 

?TIN=PTOaT 

TIN=rOOT 

CCNTIND2 

COlMPOTE PARA.'IEIERS FOR NODE 5 

WAIN JET TEMPERATUFE (ENGINE EXHAUST) 

TWAIN=T8 

IE A 30ILER IS INSTALLED, TWAIN IS BOILER EXIT TEWPEEATURE 
IF (IND.EQ. 1) TWAIN=770.0^-3.70E-3^‘H? 

COMPUTE C0W3INEE FLOW TEWPEEATURE FOR NODE 5, USING EN THALO PI ES 

HSEC= ( 1. 4 213 8 5E-5*TWOD> • 221091) *rW0D>5. 6373 

HWAI N= (1 • 5 60 5 1 E-5*T:1A IN>.2233 8) AI N* 4 , 75 3 96 

HSTACK=]W8/(W8 >WC) ) ♦ H MAI N+ ( WC/ ( W8 ♦ WC) ) *HS£C 

T5=(-C. JOOea 17*HSnCK^4. 335771 *HSTACK-9 , 5773 

ASSUME NODE 5 DENSITIES, COMBINED, BRANCH, AND MAIN 

RHCCC=PT5/ (R*T5) 

RHCCE=PSEC/(R*TMOD) 

RHCCM=PM AIN/ (R ♦TWAIN) 

COMPUTE NODE 5 VELOCITIES BRANCH, COMBINED AND MAIN 
VCNB=NC/ (RHOC3*ACN3) 

VCKC= (NI+H8) / (RHOCC*ACNC) 

VC ^ M= N8/ ( RHO CM ♦ACN M) 

COMPUTE THE VELOCITY PRESSURES AROUND NODE 5 
PVE=RHOC3*VCNB**2/(2. 0*3 2. 174 
PVC=RHOTC* VCWC*^2/ (2. 0*3 2. 174^ 

PVM=RHOCM*VCffM**2/ (2, 0*3 2. 174) 

COMPUTE STATIC PRESSURES AROUND NODE 5 
PSE=PSEO-?VB 
£SC=PT5-PVC 
PSM=PMAIN-?VM 

COMPUTE DENSITIES AROUND NODE 5 
RHOCET=P SB/(R*TMOD) 

RHCCCT=PSC/(R*T51 
RHCCMT=P SM/(R*TMAIN)^ 

TEST ASSUMED DENSITIES AND COMPUTED DENSITIES 
TEST1=AB5 (RHOCET-RHCC3) 

TEST2=ABS ( RHO CCT-RHOC C) 

TEST3=ASS (RHOCMT-RHOCM) 

RHCCE=RHCC3T 
EHCCC=RHOCCT 
RHCCM=RHOCMT 

IF (TEST1 . GT. 0. 001) GO TO 10 
IF (TEST2.GT. 0- 001) GO IC 10 
IF !tEST3.GT. 0. 001) GO TC 10 
INITIALIZE INLET CONDITIONS FOR 3RANCH 1-2 
IIN=T5 

?TIN=?0* 1 44. 04DP56 
DP56 = ').0 

COMPUTE FITTING LOSSES 
DO 12 I=C, N 

TYPE=WORKI (1,2) 

DATA1 = W0HKR (I, 1) 

DAIA2 = WORKH (1,2 
DATA3 = WORKR 1,3) 

DATA4=WORKR (1,4) 

CALL FITD? (V2i HP • ? TIN , II N- PTO JT • TOUT , PV , DATA1 , DAIA2 , DATA3, 

♦ DATA4. T YPS, DELp, J. ,0.,0.,J.,0.,J.,0-,0.,0.,0.,0.,0.,0.,0., 

♦ 0. ,T0) 

DP (I) =DEL? 

DP56=D?5o+DELP 
FITPV (I) =PV 
PTIN=PTOUT 
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14 



20 



30 



35 



40 



TI N=rOOT 
CCNTIND2 

EXIT TEilPERATUHE SHOOLD BE ATJlOSPriERIC IF NOT REPEAT ITERATION' 
TZ5T=A3S (PTOUT-PO*144.0) 

If (TEST. LT- 1. 0) GO TO 14 
GO TO 11 
CONTINUE 

PT5=P0*144.0>DP56 

INITIALIZE INLET CONDITIONS FOR BRANCH 3-5 
?TIN = P8* 144. 0 
TIN=T8 
DP 35=0. 0 

CCHPUTE FITTING LOSSES 
DO 20 I=B.RR 

TYPE=WORKI JI.2) 

DATA1 = WORKR (I, 1) 

DATA2 = W0EKR I^2'i 
DATA3 = MOEKR 1,3' 

£ATA4 = WOEKR 1,4) 

CALL FITDP (We,HP,?TIN,TIN,PTOJT,TCOT,?V, D AT A 1 . DAT A2 , DAT A 3, 

^ DATA4 .TYPE ,ZELP, 0. , A LEAD, 0. , 0. ,0 . , a£wB , A D W :i , ADWC , 0 . , 0 . , 

> v5k3 ,v5wM,7DWC,0.,0.,TO) 

DP (I) =DELP 
DPJ5=DP35>D£LP 
FITPV (I)=PV 
PTIN=PTOUT 
TIN=rOUT 

IF (TYPE. EQ. 16) LOSS=DELP 
‘CONTINUE 

COMPARE ASSUMED LOSSES AND COMPUTED LOSSES, IF NOT THE SAME REPEA: 
INICSi=INLOSS*5. 19696 
EX10SS=E XLOSS* 5. 19 696 
TEST1 = ABS (DPI 2 >CP 23- INLOSS) 

TEST2=A3S (DP 3 5 ♦CP5o-E XLOS5) 

INLOSS=(DP 12^DP23) /5. 19696 
£XLOSS=]d? 35>DP56) /5. 19o96 

IF ( (TEST 1.GT. 1 .0) .OR. (TEST2.GT. 1.0) ) GO TO 5 
INITIALIZE INLET CONDITIONS FOR BRANCH 2-5 
?TIN = ?0*1U4. 0 
TIN=T0+459.7 
DP25 = 0.0 

COMPUTE FITTING LOSSES 
DO 35 I=A,QQ 

T YPE=WOEKI (1-2) 

DATA1 = WOHKR (I, 1) 

DATA2 = WORKH (1,2) 

DATA3 = WORKR (1,3) 

DATA4=WORXR (I,4[ 

CALL FITDP (RC,H?,?TIN,TIN, PTOUT , TOUT , ?V , D AT A 1 , DAT A2 , DATA 3, 

> DATA4 - TYPE, DEL?, ALFA C.O. , AC W3, AC'/JM , ACWC , 0. , 0 . , D - , 7C ^B , VCN M , 

> vckc,o.,o.,o.,rhocc,t6) 

DP(I)=DEt? 

DP^5=DP 25 + DZLP 
FITPV fI)=?V 
PTIN= PTCUT 
TIN=TOUT 

GAIN IS RESULT OF MOMENTUM TRANSFER FROM EXHAUST TO COOLING 
FLCN 

IF (TY PE. EQ. 15) GAI N=DELP 
IF (TYPE. EQ. 26) TMOD=TOUT 
CONTINUE 

EXIT PRESSURE SHOULD 3E PT5, IF NOT REPEAT ITERATION 
TEST=ABS (PTOUT-PT5) 

IF (TEST.iT.1.0) GO TO 40 

NEXT ITERATION IS DONE WITH INCREASED COOLING FLOW, INCREASE 
UNTIL SYSTEM IS MATCHED 
WC = WC>0 . 1 
GC TO 5 
CONTINUE 



134 



70 



500 
b 00 
oO 1 



SYSTEM IS .iATCHED, OUTPUT HESULTS 

CALL CUTPai(T0^?0,n*JMID,HP,N?T-U,WORKI, CP,?IT?7, INLCSS, ZXLOSS,WC, 

♦ W2 ,W3 -P3, T3 -SFC,T5 4, .IG, SERIAL, TMOD) 

DP 13=D?i5/s1 19o96 

D?:5 = DP25/5. 19696 

DP35=0P35/S. 19696 

D?56 = D?56/5. 19696 

CUTPaT 3RA;1CH loss SOntURY 

WRITS (4,601) CP13,DP25,DP35,DP56, DP25 

CC NT I NOE 

FCR3ATC POWER POINT IS NOT ON THE PEE FOR .1 A NC E MAP.’) 

FORMAT (/5X LOSS BRANCH 1-3 : ’ , F 1 2 . 2, /5 X , ' LOSS BRANCH 2-5:',F12.2, 

♦ /5X,'LOSS BRANCH 3-5 : ' , ? 1 2 . 2 , /5 X , • LOSS BRAMCK 5-6:',F12,2) 
PETORN 

END 
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**** *<t<t*<t**<i* 4 c*4c****4[^«e *« ♦♦♦♦*♦**<:♦ ♦«««««^«4c4c4c4[*«- 

FAN MATCHING SU2ROOTINE 

THIS SUBROUTINE PRODUCES THE NEXT GUESS AT COOLING FLOW BY 
LOCATING THE INTERSECTION Of THE SYSTEM MODEL CURVE AND THE 
FAN CHARACTERISTIC CURVE, 

SUBROUTINE PAN MAT (WC, TO . PO - FA ND P, R HO STD , CP M 0 , CFM M AX , D? M AX, X ,WCN) 
REAL CFMSTD. DPSTD,WC, RHO STD , F AN D? , PO , T 3 , C, C F M , WCN ,C FMO , CFMMAX, 

♦ DPMAX,K,a 

C GAS CONSTANT 

DATA R/53, 3424/ 

C CONVERT MAS FLOW TO STANDARD VOLUME FLOI7 (C FM) 

CFMSTD=WC/RHOSTC*60, 0 

C CONVERT FAN DELTA PRESSURE TO STANDARD CONDITONS FOR THE FAN 

D?STD=FANDP* ( R HCST D* R ♦]T0 + 4 59 , 7 ) / (? 3 * 1 4 u . 3 ) ) **2 
C C IS THE PROPORTIONALITY CONSTANT FOR THE QUADRATIC MODEL ASSUMED 

C TO REPRESENT THE SYSTEM 

C=DPSTD/CFMSTD**2 

C CFM IS THE INTERSECTION OF THE FAN CHAR ACTERISTIC AND SYSTEM 

C MODEL 

CFM= (2.3*K*CFMMAX-SQR T ( ( 2. 0 ♦K^C FMM AX ) ♦♦2-4. 0* (K-C) ♦ (K^CFMMAX^^2 

♦ +DPMAX 



C CONVERT CF 

'j — c unc r\ 1? M tC^c\ n 




WCN = RHOSTD^CFM/60, 0 

BETUEN 

END 
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mnnnnnn 



nnoooo 



I 









COMPUTI 



tram** 

OUTPUT SUBROUTINE: 



c 4(4[4t* « 4c^*4( * ♦♦ i 

PRINTS STSTZN DATA 



THIS SOBROOTINE WRITES TO THE OUTPUT FILE. IF YOU HAVE AN OUTPUT 
FILE ALREADY IT WILL BE WRITTEN OVER BY THIS PRCGRAJl. IF YOU 
WANT TO 5AHE THE PREVIOUS RESULTS, RENAHE THE FILE. IF YOU ADD 
DR PTTTT*ir:<^ vn n lAK" r:-iiMr:r“ 



OR CHANGE FITTINGS YOU HUS 

♦♦**♦♦♦ ♦**♦♦*♦*♦ 

SUBROU' 

+ 



SOME CHANGES HERE. 

t «4c4i*4i ^ 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 



UTINE 3 UTPUT (TO, PO, HUMID , HP, N?T, N. WOF. KI , DP , F IT P7 , I NLOSS , 
EXLCSS,WC, W2, W3,P3,T3,SFC ,t54,NG,3ERIAL, TMOD) 

REAL TO, PO ,H0 MIC, HP, N PT. DP, Fl!:? V, INLCSS , EXLO S S , WC , W 2 ,TMOD , 

> W8;p8,T8,Sr^ , TSi.NG 

INTEGER N , WORKI.3ERIA L,TYPE 
DIMENSION DP (2 00) , FIT P V ( 20 0 ) . WO RKI (2 00 , 2) 

WRITE (4,600) SERIAL, TO. PO , HOMID, HP, NPT 
WRITE (4,60ll INLOSS, EXLOSS 
TMCD=IM0D-459. 7 

WRITE (4,602) WC, W2,W a,P8,T3,SFC,T54,NG,TMOD 
DC 100 1=1 ,N 

DP (I) =DP(I) /5. 1969 6 
TYiE=WORKI (1,2) 

FITPV (I) = FITPV (I) /5. 196 96 

GO TO ( 1, 2.3, 4. 5. 6 ,7, 3.9, 10, 11 , 12 , 13, 14, 15, 16, 17, 18, 19,20, 
21 .22,23.24 ,25,26,27, 23, 29.30) .TYPE 
|4jS03) WOFKI (I, 1) ,WORKI (1,2) , DP(I) ,FITPV(I) 

WORK I (1,1) ,WCRKI (1,2) , DP (I) , FITPV (I) 



WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
HR ITS 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITS 
GO TO 
WR ITS 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITS 
GO TO 
WR ITS 
GO TO 
WRITE 
GO TO 
WRITS 
GO TO 
WRITE 
^ C TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITS 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITS 
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(.j606, 

( 35 "’' 

( 35 "“' 



xo lo5 



WORK I (1,1) ,WORKX (1,2) , DP(5) ,r ITrV(I) 
WORKI (1,1) ,30HKI (1,2) , CP(I) ,FIX?V(I) 
WORK I (1,1) ,90RKI (1,2) , DP (I) , FITPV (I) 
HORKI (1,1) , WORKI (1,2) ,DP(I) ,FITPV(I) 
U<60 9) WORKI (1,1) , WORKI (1 , 2) , DP ( I ) , FITPV ( I) 
WORKI (1,1) , WORKI (1,2) ,DP(I) ,FITPV(I) 
WORKI (1,1) ,30RKI (1,2) , DP (X) , FITPV (I) 
WORKI (1,1) , WORKI (1,2) , DP ( I) , FITPV (I) 
WCP.KI(I,1) , WORKI (1,2) ,DP(I) ,FITPV(I) 
WORKI (1,1) , WORKI (1,2) , DP(I) , FITPV (I) 
WORKI (1,1) , WORKI (1,2) , DP (I) , FITPV (I) 
WORKI (I, 1) , WORKI (1,2) , DP(I) , FITPV (I) 
WORKI (1,1) , WORKI (1,2) ,DP(I) ,FITPV(I) 
618) WORKI (1,1) , WORKI (1,2) ,DP(I) ,FITPV(I) 
WORKI (1,1) ,WOflKI (1,2) , DP(I) ,FITPV(I) 
WORKI (1,1) , WORKI (1,2) , DP (I) , FITPV (I) 
WORKI (1,1) , WORKI (1,2) , DP(I) ,riTPV(I) 
WORKI (1,1) , WORKI (1,2) ,DP(I) ,FIT?V(I) 
WORKI (I ,1) , WORKI (I, 2) , DP (I) , FITPV (I) 
WORKI (1,1) , WORKI (1,2) , DP (I) ,FITPV(I) 
WORKI (1,1) , WORKI (1,2) ,D?(I) ,FITPV(I) 
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( 4, 625) 



13 ? 



ooooon 



24 

25 

26 

27 

28 

29 

30 

100 

600 

60 1 

602 

603 

604 

605 

606 

o07 

608 

oO 9 

6 10 

611 

612 

ol3 

614 

915 

616 

6 17 

613 

6 19 

o20 

621 

622 

623 

624 

625 

626 

627 

623 

b29 

630 

631 

b32 

633 



3C TO 100 

WRITS I 4^6 2 6) WORK I (1,1) ,WOHKI (1,2) , DP ( I ) , FIT ?V ( I) 



00 

WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
GO TO 
WRITE 
CONTINUE 
WRITE^ (6,6 33) 



( 4,63 1 ) 



WORK I (1,1) ,!70EKI (1,2) , DP (I) ,FITPV (I) 
SOP.KI (1,1) ,HOr.KI (I , 2) , 3? ( I ) , F 12? V ( I) 
HOHKI (1,1) ,WOHKI (1,2) ,DP(I) ,FITPV(I) 
WORK I (1,1) ,HOKKI (1,2) , DP (I) ,FITP7(I) 
SORKI (1,1) ,70RKI (1,2) , DP(I) ,FITPV(I) 
MORKI (1,1) ,«OHKI (1,2) , DP(I) ,FITFV(I) 



WRITE (6,6 33) 

FORMAT?//,' THIS PERFORMANCE RUN WAS DEVELOPED FROM DUCT DATA FIL 
E, ’,16,//' INLET CONDITIONS: AMBIENT TEMP (DEG F)',F10.2,/ 

AMBIENT PRESS (PS lA ' , F 1 0. 2 ,/ 
HUHIDITI (GRAINS) ',F10.2,/ 

. 



► ’ HORSEPOWER: 

K ’ NPT (EPM) : , 

FOR13AT(» ENGINE DUCT LOSSES 

► F8.‘ 

FCRilAT ( 



’ .F12, 1,^ 
• FI 2. - 
(II 



.): INLET»,F8.2,3X,* EXHAUST* , 



NGINE PERFORMANCE P A RAM ET ERS : * / 



♦ * FITTING 

♦ * ID 
FORMAT (16 ,7X,I2,9X 
FORMAT(I6, 7X,I2,9X 
FORMAT 16, 7X, 12, 9X 
F0RI1AT(I6,7X, 12, 9X 
FORMAT i’I6,7X,I2,9X 
F0RMAT(I6, 7X,I2,9X 
FORMAT iT6 , 7X, I2,9X 
FORMAT (16, 7X,I2,9X 
FORMAT (16 ,7X,I2,9X 
F0RMAT(I6,7X,I2,9X 
FOEMAI(I6,7X,I2,9X 



WC = * ,F10 .2, 
W2=*,F10,2, 
W8=* ,F10 ,2, 
P8=*,F10,2, 
T8=* .FIO .2, 
SFC=1 ,F9 .3, 
T54=» ,F1 0. 1 . 
NG=* , F10 • 1 , • 

MCDULE 

FITTING 
TYPE 



LSM/SEC*/, 

L3M/SSC*/, 

L3M/SEC*/, 

PSIA*/, 

DEG R*/, 

i-3‘1iFUEL) /HP-.HR’/, 

D Etj R * / , 

RPM’/, 

E COOLING TEMP 0 UT= * , F 1 0 . 1 , * DEG F*//// 
PRESSURE LOSS VELOCITY PRESSURE*/ 



INCH W. G. 



FORMAT 

FORMAT 



FORMAT 

FORMAT 

FORMAT 

FORMAT 



16, 7X,I2,9X 
16, 7X, I2,9X 



FORMAT (16, 7X,I2,9X 
fCRMAI(I6,7X,l2,9X 
FCRMATiT6,7X, 12, 9X 
FORMAT 16, 7X, 12, 9X 
pncM^ r 7X, I2,9X 
16, 7X,I2,9X 
16, 7X, I2,9X 

,16 , 7X,I2,9X 

FORMAT(i 6,7X,I2,SX 
FORMAT iI6,7X, 12, 9X 
FORMATri6, 7X,I2,9X 
FORMAT il6, 1X,12,9X 
FOEMAT(I6,7X,I2,9X 
F0RMAT(I6, 7X,I2,9X 
F05MAT(I6,7X,I2,9X 
FORMAT/I6, 7X,X2, 9X 



FCRMAT(I6,7X,I2-9X 



FOHMAI(* 

RETURN 

END 



,F8. 2, 


9X, 


F3.2 


3X, * 


.F8.2, 


9X, 


F3.2 


3X,* 


,F8.2, 


9X, 


F8.2 


3X, • 


/F8 ,2, 


9X, 


F8.2 


3X, * 


,F8,2, 


9X, 


F8,2 


3X,* 


,F8.2, 


9X, 


F8,2 


3X,* 


,F8,2, 


9X, 


F8, 2 


3X,* 


,TS.2, 


9X, 


?8,2 


3X,* 


, F8 • 2, 


9X, 


F8.2 


3X,* 


#F8-2, 


9X, 


F8,2 


3X,* 


,F8.2, 


9X, 


F3,2 


3X,* 


/F8.2, 


9X, 


F8,2 


3X, * 


,F8.2, 


9X, 


F9.^ 


3X, * 


rF8.2, 


9X, 


F8. 2 


3X,* 


.F8,2, 


9X, 


i 6 . 2 


3X,* 


,F8-2, 


9X, 


F3.2 


3X,* 


.F8.2, 


9X, 


f3.2 


3X,* 


,F8,2, 


9X, 


F3.2 


3X,» 


,23.2, 


9X, 


F8,2 


3X,* 


,c3.2. 


9X, 


F8.2 


3X,* 


,23.2, 


9X, 


F8.2 


3X,* 


,73.2, 


9X, 


F8,2 


3X,» 


,23.2, 


9X, 


F3.2 


3X, * 


,23.2, 


9X, 


F8.2 


3X',* 


,23.2, 


9X, 


F3.2 


3X,* 


,23.2, 


9X, 


F8.2 


3X,* 


,23.2, 


9X, 


F3,2 


3X,* 


,?S-2, 


9X, 


F3,2 


3X, * 


, F 8 • 2 , 


9X, 


F8,2 


3X,* 


,23 . 2, 


9X, 


F3.2 


3x;* 



INCH W.G.*/) 

INTAKE SHAFT INLET* 

STRAIGHT DUCT*) 

EL30W,aND, SMOOTH RAD*) 
EL20W,RND,SEGMT,90 DEG* ) 
EL50W,MIT£:EED ,R0UND *) 

ELBOW, MITERED, RECT* ) 
EL30W,RECT,SM00TH RAD*)_ 
EL50W,RECT,SMC0TH aAD,W/SPLT*) 
EL30W, RECT, MITE RED, W/VA NSS*) 
ELBOW. RECT. CONV/DIV FLOW*) 
ELBOWS, D-SHAPED *) 

ELBOWS, IN DIFF PLANES*) 
5RAIiCH,DIV wye*} 

MAIN SSCT.DIV WYE*) 

EEANCH-CONV WYE*} 

MAIN SlCT.CONV WYE* ) 

DIFF, CONICAL* ) 

DIFF, PLANE IN LINE*) 

DIFF, PYRAMIDAL* ) 
DIFF,TRANSITICN AL* ) 

CON TRACTION, ROUND* ) 
CONTRACTION, RECT* ) 

SCREEN IN DUCT*1 
LOUVER ENTRANCE^ 

FILTER* ) 

SILENCER SECTION*) 

GAS TURBINE MODULE*) 

WASTE HEAT BOILER’) 

EXIT, ABRUPT*) 

YOUR CHOICE 



2 ’) 

SEE OUTPUT DATA FILE ON YOUR DISK FOR RESULTS*) 
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APPEN^I B 
FLOW CHARTS 

/. Mf\iN PdOGRAIA NO INPUT OR OUTPUT VARIABLES 




^ TQ 





EX \T 

Qu>r 

^ STOP 
PROGRAM 
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iZ " Build SuBRoutinl 

TI^b f^e AH.E No INP^r or. OUTP0.T \/ARlf\BLB S 
R'oR TNis SuBRouT/^je^ voivei/e;? S u BRour/^es 
CAul£P by the. build SUQROuTikiE do 
handle /ajPut And output data. 



CALL INST 




DETER A 1 // VE 5 /A/ST/KucT)oaJS 


Desired by the user 


ANO 


TYPE OF T£ AMinal 
/S OPERaTin s 


USE/H 



Call Systgh! 

The SYSTEm CL/^i^ / Etc at/oh 

IS determined by this 
Subroutine THE SYSTEM 
Class JE/ cA-t/on shd\nn 
IN ElE U RE 2 . fc /S 

Represented by the 
in/teler. VAR/ a ole^ Class 



lAl 




SEE TME PR6Um/AJ(4S.Y S^CTlof^ OP" TWE 

USERS I^ANUAL rOR EXPUMATION OF 

IDENTi F»c'\rv ON NUtv^eesS. 



1^2 




^ LiQ 



HI EDiTiNa vSUSROUTiME (ed) 

Tl-lEf^E ARE NO INPUT OR OuT Put UAPiaBlES. 
FOR 77//S SUERouT/a/E , HOV^SUEF SUQFoutinP^ 
Called BY TPE ED Su-r^ro^Jine Oo 
HA)Ndle input and Output pata. 
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W . COMPUrC’ £uBR.OUTimE 
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3T ^Y5rgM THR.ee JUB (^ouTime (5YS3) 

thi 5 SuSRouTiNie \S crti_i-eo 3Y TMg compute 

StC-TioN OR TME PR.0 , All variables 

ARt \N?^T FROh^ COKViP e(/3 RC7UT |^)£ iHeRt 
A,r6 mo OuT'f’wr VfiR/AGues RETi/^RNbD TO 

ComP^ All. Output is ujr.\tten to ta e 
PeRPo «. rvA Amc£ Pile . 



3£T UP The 


START/aJC 


AMO STOPPlAj<r 


(i^ocKejs PoK. 


TMG 


Data 


ARRATS FOPL 


Tue Sramcwes 













IMiriALiZE \ZAR/ASlE 5 foA 

start of ITERATio/J 



Duct losses 



'N UOS5 


r 4-0 


(iMcu we) 


£.xlo s s 


r 5.0 


f INCH W4) 


GDwctor. 


A 1 




6 A 1 M - 


-BO. 


0 (PSP) 


Coou 1 kj ^ 


FcO\aJ 


pASSAce i_o 


t-oss = 


30 


O ( PSf) 


6oou 1 nI g- 


Flow 





WC- ■= 1 


SFl^ MA X 


A RHOSTd/^O. 


inJCK 


IN)FOiR.r\A 


2 

0 

F 

< 


PPAE" 


= lOO. 0 


(PSF) 


DPS6 


= 100-0 


(PSA) 


TMOP 


- 7 lo . 0 


C°R) 


Pt 5" 


= Pcp -Xr 


144. (9 -1- DPStJ 



A 
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15U 




15S 
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15 '^ 
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159 
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I 

I 

1 







The Sum dp3s 


= DPJS" Pet-P 


IS Tpe PRESSURE LOS'S FOR TH£ 


Bi^ANlChl 





^ 

COM PARE" EXIT pressure FRom BRANCH 3S 
WITH total pressure at NODE 5 , pT 5, 
COMPUTED EARLIER 

TEST : AB5 (prOUT- PTSj 



y 

MO 
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M 



initialize inlet conditions 
for branch 4-5‘- iNLtT 
pRtssuRt IS A Function of 
fan CH ARACTERiSTICS AMO 
Flow 

Tin = “T4 

PTIN = PTOUT + (K 

Wc/RMOSTD * GO O)- 
CfMrAAx') XX Z -h 

DP45' =0.0 






FOR EACH P\TT\N6 IN Bl^ANClH 
CALL FIT DP TO COMPUTE 

Pressure loss in the fitting. 

THE SUM DP4F = WE + DELP 
IS THE PRESSURE LOSS FOR 
THE BRANCH 



0 
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H. fitting press UH£ loss calculation 

vSu Bf?Oa Ti /\j E . SET L\p TO COmPuTb 
PRESSURE LOSS AND VELOCITY DpTA FOR 

30 fittings listed in the menu 
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APPEN^I C 
OSER'S MANOAL 

A. GENERAL 

The purpose of this program is to analyze a marine gas 
turbine installation on board a ship complete with inlet, 
exhaust, and cooling ductwork. The duct geometry must be 
input to the program to accomplish this. The program makes 
a file called "duct data" which contains resistance informa- 
tion on each fitting entered. This file may be edited with 
the built in editor cr if the user is satisfied with the 
current design the file is read by the program and used in 
the COMPOTE section of the program. COMPOTE uses the duct 
data file and inputs dealing with the operating point of the 
engine to produce the performance parameters of the system. 
Performance includes both engine parameters and duct losses. 
All procedures in the program are accomplished using an 
interactive terminal session. 

There are two versions of the program discussed in this 
user's manual. Version 1.0 is implemented on the NPS IBM 
3033 computer. Version 1.1 is implemented on the NPS VAX-11 
computer . 

This user's manual will discuss the questions posed by 
the program. Familiarity with the program sections and the 
questions asked in eacn section will facilitate program 
execution and help produce reasonable results. The most 
critical area for familiarity is in the BUILD and EDIT 
sections of the program. It is not so critical in the 
COMPUTE section of the program because only two questions 
are asked for each operating point run after the ambient 
conditions are input. 
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B. PBELIHINAHY 



The program does not design ducts or read mechanical 
drawings. The user flays a vital role by interpreting the 
system rcr the program. Some fittings are easy to recognize 
such as elbows, straight duct, transistions, diffusers and 
contractions. Some are harder to understand, like diverging 
and converging wyes. Each fitting listed in the menu is 
sketched for the user. The sketcnes snow a typical view but 
remember that the dimensions shewn on the drawings are vari- 
able inputs so the configuration can change drastically by 
looking at a fitting over the range of variable dimensions. 

Before running the program the user should become 
familiar with the fitting sketches. Comparing the sketch to 
the fitting to be modeled will assist the user in preparing 
a list of fittings fer the system. The user should note the 
dimensions and be prepared to input them to the program. 

The program looks for fittings in a definite sequence. 
Branches are groups of fittings or sections of the ductwork. 
Branches run from node to node. A node is an entry, exit, 
junction, fan, or engine. Refer to figure 2.6 for the 
various system configurations. Nodes are indicated in this 
figure by the numbered black dots. Nodes have numbers from 
one to six. The branches get their number designation from 
the end point nodes. The user shouil become familiar with 
the system schematics then it will be easy to understand the 
order that the program will be asking for fittings. 
Branches are entered in a sequence from the lowest number 
node to the next lowest number node until ail fittings are 
entered. For example, a class three system enters branches 
in the following order; 1-2, 2-3, 2-4, 3-5, 4-5, 5-6. To 
assist the user when entering fittings the program displays 
the current fitting identification numoer on the screen with 
the menu. The ID number is a six digit number where the 
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first digit is the system class, the next two digits are the 
branch numter and the last two numbers are the sequence 
number of the fitting in the branch. A terminal session has 
been recorded and the printout annotated to show this 
number. 

It would be helpful to pencil in the node numbers in the 
system drawings. The following table may help. 



TABLE II 

Bode Designations 



1 


Main air inlet (engine only or 


combined) 


2 


Cooling air inlet or divergent 
off main inlet 


wye 


3 


The engine 




a 


A fan 




5 


Cooling air exit or convergent 
with main exhaust 


wye 


6 


Main exhaust (engine only or combined) 



The user should prepare a list of fittings organized by 
tranches and continuous with regard to the sequence of 
fittings. It's the old "toe bone connected to the foot 
tone" idea. As an example, the following list may help, 
node 1 

vert intake, 3 orifices, with louvers 
straight duct 
rectangular contraction 
smooth radius rect elbow 

node 3 



etc . 

Do not forget to include 
Sometimes it is easy to ove 
the engine module as part o 



abrupt exits where they appear, 
rlook an obvious fitting such as 
f the cooling air ductwork. 
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Only the class one system does not have either a diver- 
gent wye or a convergent wye. Class three and five have 
both. The divergent wye is fairly straight forward. The 
user only needs to enter the areas indicated in the sketch 
and the angle of divergence (0-90) . The branch section of 
the divergent wye is the first fitting in branch 2-4 (2-5 if 
no fan) and the main section (combustion air) is the first 
fitting in branch 2-3. The combined area and the divergence 
angle are data entered when entering the branch of the 
diverging wye. The convergent wye is a more complex. It is 
located at node five. The branch of a convergent wye should 
be the last fitting cf branch 4-5 (2-5 if no fan) . It will 
usually be the fitting after the module. The main section 
(engine exhaust) of the convergent wye is the last fitting 
of branch 3-5. Usually there are just two fittings in 
branch 3-5. The first is 'the nozzle or extension bolted to 
the exhaust plane flange of the engine, and the last is the 
main section of the convergent wye. The combined area and 
convergence angle are data entered with the branch section. 
The convergence angle is usually zero and the combined area 
is about egual to the sum of the main and branch areas. 
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FITTING NAME: 

Vertical intake 
with or without 



shaft with 
louvers 



side orifices. 



'T 

I 

._L 



NUMBER : 

01 



SKETCH: 






^ J INLET 



SHAFT 

AREA 



WITHOUT LOUVERS 



WITH LOUVERS 



OPENINGS 



1 r 



J L 



J L 



INPUT REQUIREMENTS: 

1. The number of orifices (1,2. 3, or 4) 

2. The cross section area of tne verticalshaf t 

3. With two orifices, whether they are adjacent 
cr opposite 

4. If tnere are louvers installed 



DUCT DATA FILE 
WORKE (1,1) 
shaft 
area 



ENTRIES; 
WORKR (1,2) 
0.0 



WORKS (1,3) 
resis ta nee 
coefficient 



WORKR (1,4) 
shaft 
area 



REMARKS: 

The louvers are flat plates of standard configuration. 
The opening areas are not required but should be 
approximately proportional to those shown in the 
sketch. 



REFERENCE : 

Handbook of Hydraulic Resistance, Idel'chik 
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I FITTING NAME: 
j Straight duct. 



SKETCH : 



round or 



rectangular 



NUMBER ; 
02 





RECTANGULAR 



INPUT REQUIREMENTS: 

1. Round: diameter and length 

2. rectangular; cross section dimensions 

length 



DUCT DATA FILE ENTRIES: 

WORKR([I,l) WORKR(I,2) WORKR(I,3) 
section diameter or length 

area equivalent 



(a, b) 



NORKR (1,4) 
s ecticn 
area 



REMARKS: 

Darcy- Wiesbach Equation used for resistance. 

Friction factor cy correlation by Swamee S Jain. 
Equivalent circular diameter computed f or rac tangular 
sections. Length should be measured to the center of 
short fittings and to the start or end of a long 
fitting. 



REFERENCE: 

Mechanics of Fluids, Shames 



j 
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NUMBER; 

03 



INPUT EECUIEEMENTS: 

1. Cross section diameter 

2. Radius of the turn measured to the centerline of 
the section 

3- The turn angle 



DUCT DATA FILE ENTRIES; 
WCRKE(I,1) WORKE(I,2) 

section 0.0 

area 


WORKfi (1,3) 
resistance 
coef icient 


'aDRKR (1,4) 
section 
area 


REMARKS; 






Turn angle should be from 


0 to 90 degrees. 


REFERENCE : 






ASHHAE FUNDAMENTALS 198 1, 


chapter 33 





FITTING NAME; 

Smooth radius round cross section elbow 



SKETCH; 
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FITTING NAME: NUMBER: 

Segmented round cross section elbow Ou 

3, 4, or 5 segments, 90 degree turn 



SKETCH; 




THREE SEGMENTS SHOWN 

(there may also be 

FOUR OR FIVE SEGMENTS) 



INPUT REQUIREMENTS : 

1. Number of segments 

2. Cross section diameter 

3. Radius of the turn measured to the centerline 
of the turn 



DUCT DATA FILE ENTRIES; 
W0RKR{I,1) WORKR(I,2) 

section 0.0 

area 



REMARKS: 

Note that the number of seg 
and exit segments. 



REFERENCE; 

ASHRAE FUNDAMENTALS 198 1, 



WORKR (1,3) 

resistance 

coefficient 



WORKR (1,4) 
section 
area 



ments includes the entry 



chapter 33 
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FITTING NAME: 

Mitered round cress section elbow 



SKETCH: 



NUMBEB : 
05 




INPUT FECUIREM ENTS: 

1. Cross section diameter 

2. Turn angle 

3. Whether or not concentric guide vanes are' 
installe d 



DUCT DATA FILE ENTRIES: 
WCRKE.(I,1) WOBKR(I,2) 

section diameter 

area 



WOF.KB (I, 3) 
resistance 
coeff icient 



WDftKH (1,4) 
section 
area 



REMARKS: 

A Reynolds number correction is applied to this ritting 



REFERENCE: 

ASHRAE FUNDAMENTALS 198 1, chapter 33 
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FITTING NAME: 

Mitered rectangular cross section elbow 
without turning vanes 



NUMBER ; 
06 



SKETCH: 




INPUT REQUIREMENTS: 

1. Height of the elbow, dimension parallel to turn 
axis 

2. Width of the elbow, dimension in the turn plane 

3. Turn angle 



DUCT DATA FILE ENTRIES: 
WCRKE(I,1) WORKS (1,2) 
section hydraulic 

area diameter 



WORKS (I, 3) 
resista nee 
coefficient 



WOSKR .(1,4) 
section 
area 



REMARKS: 

This fitting has a Reynolds number correction applied 
to the resistance coefficient. 



REFERENCE: 

ASHP.AE FUNDAMENTALS 198 1, chapter 33 
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FITTING NAME: NUMBE5: 

Smooth radius rectangular elbow witnout 07 

guide vanes 



SKETCH; 




INPUT FEQUIREMENTS : 

1. Height of the elbow, the aimension parallel to the 
turn axis 

2. Width of the elbow, the dimension in the turn plane 

3. Radius of the elbow measured to the centerline of 
the elbow. 

4. Turn angle 



DUCT DATA FILE ENTFIES: 

WORKRj(I,1) HORKR(I,2) WORKR(I,3) F0RKR(I,4) 

section hydraulic resistance radius/ 

area diameter coefficient width 



REMARKS: 

This fitting has a Reynolds number correction. 
The correction also varies with the R/W ratio. 



REFERENCE: 

ASHRAE FUNDAMENTAIS 198 1, chapter 33 
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FITTING NAME: 

Smooth radius rectangular elbow with 
spli tters 



SKETCH: 




TWO SPLITTERS SHOWN 
(THERE MAY ALSO BE 
ONE OR THREE) 



INPUT FEQUIREMENTS: 

1. Number of splitters, or 3 

2. Height, distance parallel to turn axis 

3. Width, distance in turn plane 

4. Radius of elbow to section centerline 

5. Turn angle 



DUCT DATA FILE 
WCEKE (1,1) 
section 
area 



ENTRIES: 
WORKE (1,2) 
0.0 



WCHKR(I,3) KD 
resistance s 
coef f icient 



REMARKS: 

None 



REFERENCE: 

ASHRAE FUNDAMENTALS 198 1, Chapter 33 



NUMBER: 

03 



RKR (1,4) 

ection 

area 



I 



j 
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FITTING NAME: 

Mitered rectangular elb cw with vanes 



SKETCH : 




THREE VANES SHOWN 

(THERE MAY ALSO BE 
ONE OR TWO) 



NUMBER 

09 



INPUT FECOIEEM ENTS: 

1. Number of vanes (1, 2, or 3) 

2. Cross section area 



DUCT DATA FILE ENTRIES: 






WORKR (1,1) 


WORKR (1,2) 


WORKR (I, 3) 


WORKR (1,4) 


sect ion 


0.0 


resistance 


section 


area 




coefficient 


area 


REMARKS: 


Flat plate 


turning vanes 


are used. 





REFERENCE : 

ASHRAE FUNDAMENTALS 198 1, chapter 33 
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FITTING NAME: 

Rectangular elbow with converging or 
diverging flew 

"sKiTCH : 



NUMBER 

10 



WO 




INPUT REOUIESHENTS ; 

1. Inlet height, dimension parallel to tarn axis 

2. Exit height, dimension parallel to turn axis 

3. Constant width, dimension in turn plane 



DUCT DATA FILE 
WORKS (1,1) 
inlet 
area 



ENTEIES; 
WORKE (1,2) 
inlet hyd. 
diameter 



WORKS (1,3) 
resistance 
coefficient 



KORKR (1,4) 
outlet 
area 



REMARKS: 

Elbow should have a 90 deg turn. 
The width should remain constant 



in the elbow 



REFERENCE: 

ASEHAE FUNDAMENTALS 198 1, chapter 33 
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FITTING NAME: 

Two 90 degree rectacgular 
Z-shap€d configuration 



elbows in a 



NUMBER. 

1 1 



SKETCH; 




INPUT 

1 . 

2 . 

3. 



REQUIREMENTS : 

Height of elbows, dimension parallel to turn axis 
Width of elbows, dimension in turn axis 
The distance between the centerlines of the offset 
duct 



DUCT DATA FILE 
WORKR (1,1) 
section 
area 



ENTRIES: 
WORKR (1,2) 
hydraulic 
diameter 



WORKR (1,3) WORKR (1,4) 
resistance section 
coefficient area 



REMARKS: 

None. 



REFERENCE: 

ASHRAE FUNDAMENTALS 198 1, 



chapter 33 
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FITTING NAME: , . 

Two SO degree elbows in different planes 



NUMBER 

12 



SKETCH: 




INPUT REQUIREMENTS: 

1. Height of elbow, dimension parallel to turn axis 

2. Width of elbow, dimension in the plane of the turn 

3. Distance between the centerlines of the duct 
connected to this arrangement 



DUCT DATA FILE 
WORKR (1,1) 
section 
area 



ENTRIES ; 
HORKR (1,2) 
Hydraulic 
Diameter 



WORKR (1,3) 

resistance 

coefficient 



HORKR (1,4) 
section 
area 



REMARKS: 

Resistance coefficient 
tabulated data. 



is a curve fit to the 



REF ERENCZ * 

ASHRAE FONDAMENTAIS 198 1, chapter 33 
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FITTING NAME: 

Diverging wye, branch and main sections 



SKETCH; 



NUMBER: 
13 & 1 4 




COMBINED INLET AREA 
(ADWC) 



MAIN JET AREA 
(ADWM) 



INFUT FEQUIREMENTS: 

A. Branch section 

1. combined area 

2. branch area 

3. divergence angle 



B. Main section 
1 . main area 



DUCT DATA FILE 
WCEKE (1-1) 
comb ined 
area 



ENTRIES: (fitting 

W0RKR(I,2) "" 

branch divergence 

area angle 



KOfiKMi:, 3) 



wORKR (1,4) 
branch 
area 



REMARKS; 

The divergence angle should follow some centerline 
streamline. The areas are cross section areas 
perpendicular to the streamline in the sections 
away from the dividing location. Cooling air flows 
through the oranch section. Main inlet air to the 
engine flows through the main section. Both flow 
through the combined section. 



REFERENCE : 
Handbook 



of Hydraulic Resistance, Idel’chik 
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FITTING NAME: , T NUM3Zr7~1 

Convergent wye, trancn and main sections i 15 6 16 j 



SKETCH: 



SCHEMATIC 




INPUT REQUIREMENTS; 

A. Branch section B. Main section 

1. tranch area 1. main area 

2. combined area 

3. convergence angle 



DUCT DATA FILE ENTRIES: (fitting 15| 

WORKE(I,1) W0RKR(I,2) WORKR(I,3) W0RKR(I,4) 

combined branch convergence branch 

area area angle area 



REMARKS: 

The branch area has module cooling air flowing through 
it. The main area has engine exhaust flowing through 
it. The combined area has both. The angle should be 
measured to representative streamlines at the plane 
where the two flows meet. 



REFERENCE: 

Handbook of Hydraulic Resistance, Idei’chik 
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FITTING NAME: 

Conical diffuser 



NOMBER 

17 



SKETCH: 




INPUT REQUIREMENTS: 

1. Length of the diffuser 

2. Inlet diameter 

3. Cutlet diameter 

4. Is there distorted flow 

5. Are tnere dividing wall 
reduce resistance 



at the inlet 
or baffles installed to 



DUCT DATA FILE 
WCRKR (1,1) 
inlet 
area 



ENTRIES: 
WOEKRj(I,2) 
friction 
coef ficie nt 



W03KR (1,3) 
flow 

coefficient 



WDRKR (1,4) 

outlet 

area 



REMARKS: 

The program recognizes a wide diverging angle and 
warns tne user. Resistance in this case mav be 
reduced by 35 % with installation of baffles. 



REFER ENCE : 

Handbook of Hydraulic Resistance, Idel’chik 



FITTING NAME; 

Plane in-line diffuser 


J 


NUMBER ; 
13 

L . . 


SKETCH; 



I 

1 




INPUT REQUIREMENTS: 

1. Length of the diffuser 

2. The constant heigth of the diffuser 

3. The inlet width 

4. The outlet width 

5. Distorted flow 

6. Installation of baffles 



DUCT DATA FILE ENTRIES: 

W0EKE(I,1) W0EKRjfI,2) W0RKR(I,3) W0EXR(I,4) 

inlet friction flow outlet 

area coefficient coefficient area 



REMARKS: 

The divergence is assumed to be uniform witn respect 
to the main centerline. A wide divergence angle is 
recognized and the user is asked if dividino walls or 
baffles are installed to reduce resistance.' 



REFERENCE: 

Handbook or Hydraulic Resistance, Idel'chik 
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FIIIING NAME: 

Pyramidal in-line diffuser 



[UMBER: I 






SKETCH: 




HI 



INPUT FEQUIREMENTS: 

1. length of the diffuser 

2. Smaller inlet dimension, larger inlet dimension 

3. Dimensions parallel to inlet dimensions 

4. Non-uniform velocity profile 

5. Are baffles installed 



DUCT DATA FILE 
WCRKE (1,1) 
inlet 
area 



ENTRIES: 
WOBKR (1,2) 
friction 
coef ficie nt 



WORKR (1,3) 
flow 

coefficient 



WORKR (1,4) 

outlet 

area 



REMARKS: 

A uniform divergence with respect to the centerline is 
assumed. Hide divergence angle is recognized by the 
program. With a wide angle the flow resistance can 
be reduced by 351^ with baffles or dividing wails. 



REFERENCE: 

Handbook 



of Hydraulic Resistance, Idei'cnik 
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FITTING NAME: , NUMBER: 

Transition diffuser, round to rectangular 20 

or rectangular to round 



SKETCH: 




H 



INPUT REQUIREMENTS: 

1. Manner of transistion 

2 . Diameter 

3. rectangular dimensions 

4. Lengtb of the diffuser 

5. Non-uniform velocity distribution 

6. Installation of baffles or dividinc walls 



DUCT DATA FILE 
WCRKB (1,1) 
inlet 
area 



ENTRIES: 
WORKS .(I, 2) 
friction 
coefficie nt 



WORKH (1,3) 
flow 

coefficient 



HDRKR (1,4) 

outlet 

area 



REMARKS: 

Uniform divergence with respect to the centerline is 
assumed. Wide divergence angle is recognized and if 
baffles or dividing walls are installed the resistance 
is reduced by 3 5?.. 



REFERENCE: 

Handbook of Hydraulic Resistance, Idel'chik 
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FIHING NAME: 

Circular contraction 



SKETCH: 




L 



NUMBER: 

I 21 
J 



INPUT REQUIREMENTS: 

1. Length of the contraction 

2. Upstream diameter 

3. Downstream diameter 



DUCT DATA FILE ENTRIES: 

WORKR(I,l) WORKR(I,2) WOEKR(I,3) W0RKR(I,4) 

outlet 0.0 resistance inlet 

area coefficient area 



REMARKS: 

If you need a transitional contraction you could use 
this fitting or fitting 22. The area or the inlet 
or outlet would have to be converted to a circle or 
rectangle as required by the geometry for input to 
the program. 



REFERENCE: 

ASHRAE FUNDHENTAIS 1981, chapter 33 
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FITTING NAME: 

Rectangular contraction 

SKETCH: 



] NOMBEF.: 

I 22 
I 

j 




INFOT EECOIRZMENTS: 

1. Length of the contraction 

2. Upstream dimensions 

3. Downstream dimensions 



DUCT DATA FILE ENTRIES: 
WCRKE(I,1) W0£KR(I,2) 
outlet 0.0 

area 



REMARKS: 



HOfiKR (1,3) 
resistance 
coefficient 



KORKE (1,4) 

inlet 

area 



This fitting can te substituted for a transitional 
contraction. The inlet or outlet area should remain 
the same and the area for transition converted as 
required. 



! REFERENCE: 

I ASHEAE FUNDAMENTALS 1981, chapter 33 

I 



j 



196 



FITTING NAME: 
Screen 



NUMBER 

23 



SKETCH: 






SCREEN AREA 

(FREE FLOW MEANS HOLE SPACES) 



DUCT AREA (OVERALL AREA) 



INPUT BEQUIREMENTS : 

1. Overall duct cross section area 

2. Screen free flow area 



DUCT DATA FILE ENTFIES: 
WOEKR(I^I) HOHKR(I,2) 

duct 0.0 

area 



WORKR (1,3) 
res istance 
coefficient 



WORKS (1,4) 
duct 
area 



REMARKS: 

This fitting is useful for the screen in front of 
the engine inlet. The free flow area is the sum of 
all the holes in the screen. 



REFER ’^NC E * 

ASHRAE f UNDAMENTALS 198 1, Chapter 33 
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FITTING NAME: 
Louver inlet 



SKETCH : 



NUMBER : 
24 




INEUT REQUIREMENTS: 

1. Distance across the louver openings 

2. Distance between the louvers 

3. The number of openings between the louvers 

4. Duct area just inside the louvers 



DUCT DATA FILE ENTRIES: 

WCRKE(I,1) WOEKE(I,2) N0EKR(I,3) N0RKE(I,4) 

duct 0.0 resistance duct 

area coefficient area 



REMARKS: 

The correlation is for flat louvers with the front 
edges flat with the face of the louvers. No friction 
is included in this correlation. Better models need 
to be developed fcr louvers with moisture separator 
edges. The louver angle is 45 degrees to tne face. 



REFERENCE: 

Handbook of Hydraulic Resistance, Idel'chik 



1S8 



FITTING NAME: 
Filter 



SKETCH: 




T 



NUMBER: 

25 



INPUT REQUIREMENTS: 

None if the default value is used. 

If another filter type is to be used then the 
user should provide pressure loss data as a 
function of race velocity. Only a few points 
are required for the power curve fit to work. 
The number of points is an input (two min.) 



DUCI DATA FILE ENTRIES: 

WORKR(I.I) W0RKR(I^2) W0RKR(I.3) 

filter face multiplier exponent 

area (A) (B) 



REMARKS: 

The power curve fit is of the form: 

delta pressure (in WG)= A ♦ (velocity) **B 



REFERENCE: 

Filter manufacturer’s data 



WORKR (1/4) 
filter face 
area 
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fitting NAME: 

Multi-taffie type silencer 



NUMBER 
26 



n 



SKETCH: 



1 I 




C DISTANCE ACROSS DUCT 



N IS THE NUMBER 
OF GAPS 




EEiUIREMENTS : 

Gap between taffies 
Baffle thickness 
Baffle length (with flow) 
Duct dimensicn parallel to 
Duct dimension across gaps 
The number of gaps 



gap 



DUCT DATA FILE 
WCEKE(I,1) 
duct 
area 



ENTEIES: 
WORKE (1,2) 
0.0 



WORKE (1,3) 
resista nee 
coefficient 



WORKR (1,4) 
duct 
area 



REMARKS: 

This is a composit model. The resistance coefficient 
is modeled as a sudden contraction, friction along the 
length of the baffle- and a sudden expansion. It is 

a very good mcdel and a model cased on experimental 
would be better. 



not 

data 



REFERENCE : 

NAVSEA Inlet 



Design Handboox for Marine Gas turbines 



200 



FITTING NAME: 

Gas turtine module 



SKETCH: 



I numberTH 

I 27 I 

_1 




INFOT EEQUIREMENTS : 
N one 



DUCT DATA FILE 
WCEKR (1,1) 
1.0 



ENTRIES: 
WORKE (1,2) 
1.0 



WOHKE (1,3) 
1 . 0 



NORKE (1,4) 

1.0 



REMARKS: 

This model is based on the mass flow rate of cooling 
air through the module. It is a power fit to data rrom 
General Electric Co. It should be good as long as 
entry and exit areas remain about the same. The 1.0’s 
in the duct data file are there to prevent division by 
zero in the program and are not actually used. 



REFERENCE: 

Manufacturer's data 



FITTING NAME: 

Waste heat recovery boiler 



NUMBER; 

28 



SKETCH; 



NUMBER OF ROWS 



EQUIVALENT 
DIAMETER 



NUMBER OF 
TUBES IN A 
ROW 





ISTANCE BETWEEN 
ROWS 

J 



DISTANCE I 
BETWEEN 
TUBES IN A 

ROW 



INPUT FECOIREMENTS: 

A default is available. It is based on current design 
considerations in the racer program. Should you 
choose not to use it several inputs are required. 

Read the reference and be prepared to enter the values 
shcvfn on the sketch and a few you will have to compute 
yourself (i.e. tube equiv. dia. and hydraulic dia.). 



DUCT DATA FILE 
WORKR (1,1) 
duct 
area 



ENTRIES: 
WORKR (1,2) 
0.0 



WORKR (1,3) 
resista nee 
coefficient 



WORKR (1,4) 
duct 
area 



REMARKS: 

If the manufacturer 
own model, but this 
studies. 



will provide the data, write your 
should be close for preliminary 



REFERENCE: 

Extended Surface 
pages 562-589 



Heat Transfer, Kerns and Krauss 
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FITTING NAME: 
Abrupt Exit 



NUMEER : 
29 



SKETCH: 




OUTLET AREA 



INPUT REQUIREMENTS: 
1. The exit area 



DUCT DATA FILE ENTRIES: 
RORKR(I,1) FOEKR(I,2) 
exit 0.0 

area 



HGRKR (1,3) 

1.0 



REMARKS: 

All velocity energy is assumed lost after 
the duct, hence a coefficient of 1.0. 



WORKR (1,4) 
ex it 
area 



exi ting 



REF EE ENC E : 

“aSHEAE fundamentals 198 1, chapter 33 
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C. EIEC0TI8G THE PECGSAH 

1 • IBM 30 33 at NFS 

Issue the following commands to compile and execute 
the F tog ram. 

FCETKX filename 

GLOBAL TXTLIB FOETMOD2 MOD2EEH NONIMSL 

LOAD filename (STAET 

"filename” is the name of the program in the user’s files. 
NONIMSL is required because the program calls the NONIMSL 
library with FETCMS when defining files and clearing the CRT 
screen. If the file has been compiled on the user’s disk 
the lengthy compiling may be omitted and issue just the last 
two lines. 

2.- IMzll §.i 

The program version to be used is 1.1. This version 
is a modified version of the program listed in Appendix A. 
The modifications include elimination of all calls to 
FETCMS. FETCMS is used for two purposes in version 1.0. 

First to set up file definitions and second to clear the 
screen at appropriate times to prevent the format cf the 
display from neing chopped up. The file definitions in 
version 1.1 are set up using the standard OPEN statement of 
FORTRAN 77 used on the VAX-11/780 at NFS. All calls to 
FETCMS to clear the screen were deleted and ace not needed 
on the VAX because it scrolls the display from the bottom 
and does not cut off any continuous screen displays. One 
other change was made in the file definition area, all 
writes tc the terminal where made to unit 5 and all reads 
from the terminal were made from unit 6. This agrees with 
the convention of FORTRAN 77 as implemented on the VAX. The 
program runs like any other program on the VAX, first the 
program must be compiled using the fortran compiler, then 
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linked and run. The program is still interacti7e on the VAX 
and about the only word of caution required is to remember 
to use CAPS ON or upper case input for logical replies. 
Using lower case leaves the user in a loop where the program 
keeps asking for for a correct reply. The duct geometry 

fxle information is on a file called duct.lat and tne 
performance information is on a fue called output.dat. 

D. BUILDING A DUCT DATA PILE 

The following pages are a recorded session at the 
terminal where the author entered a system in to cne 
program. The system modeled is made up from drawings for 
tne proposed Arleigh Burke class guided missile destroyer. 
The session has been annotated to point out features of the 
program. 
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GLOBAL TXT1I3 C:iSLIB FORTaOD2 a002Z2H I3SL5P NONI.'ISL 
LOAD THESIS ( START 
EXSCUTICN BEGINS.., 

A ONS-DIHENSIONAL MODEL FOR THE SYSTEM PERFORMANCE 
OF A MARINE GAS TURBINE INSTALLATION 

BY LCDR. STEPHEN M, EZZELL 

VERSION 1.0 MARCH 30, 1934 

OPTIONS: BUILD A DATA FILE REPRESENTING THE DUCT SYSTEM 

EDIT OR CHANGE THE DUCT DATA FILE 
COMPOTE SYSTEM PERFORMANCE 

METHOD: INTERACTIVE INPUT OF DATA, BRANCHING TO DESIRED 

OPTION BY ANSWERING QUESTIONS 

♦♦♦ WARNING, TWO NULL ENTRIES ON NUMERICAL INPUT WILL 
♦♦♦ KILL THE PROGRAM. 



FIR 

DO 

n 

DO 

1 

YOU 

ARE 

YOU 

DDE 

(Y 

^DDE 

(Y, 

V 

'IS 

t 

YOU 

IS 

Iyst 

FLOW 

INST 

1 . 

2 . 

3. 

4 . 



5. 

6 . 



ST QUESTION: 

YOU HAVE A DATA FILE OF DUCT FITTINGS (Y/N) ? 

YOU WANT LONG OR SHORT INSTRUCTIONS (L/S) ? 

HAVE SELECTED THE LONG INSTRUCTIONS. 

YCU WORKING ON A CRT OR TYPEWRITER TERMINAL (C/1)? 

ARE WORKING ON A CRT TERMINAL. 

S THE MODULE COOLING AIR BRANCH OFF THE MAIN INLET? 

N) 

S THE MODULE COOLING AIR JOIN THE MAIN EN GINE EXHAU ST? 
N) 



THERE A COOLING FAN INSTALLED? 

MUST ENTER A LETTER IN THE BRACKETS. 
THERE A COOLING FAN INSTALLED? 



J^orr iNCDfUiBCT 

SHOttLO ///?✓£■ 
Y OR, A/ 




EM IS CLASS THREE, COMBINED INLETS AND EXHAUST 
S FOR THE ENGINE AND MODULE COOLING. A COOLING FAN IS 
ALLZD. YOU WILL BE ENTERING FITTINGS FOR SIX BRANCHES. 
COMBINED INLET TC THE COMBINED SECTION 
OF A DIVERGENT WYE. 

MAIN SECTION OF THE DIVERGENT WYE TO THE ENGINE. 

BRANCH SECTION OF THE DIVERGENT HYE TO THE COOLING FAN. 
ENGINE EXHAUST TC MAIN SECTION OF A CONVERGENT WYE. 

AN EDUCTOR INSTALLED AT THE EXHAUST PLANE OF THE ENGINE 
IS CONSIDERED TC BE A CONTRACTION FOLLOW ED BY THE MAIN 
SECTION OF A CONVERGING UIE FOR THE PURPOSES OF THIS 
PROGRAM. 

COOLING FAN EXHAUST TO THE BRANCH SECTION 
CF A CCNVERGENT WYE. 

COMBINED SECTION OF A CONVERGENT WYE TO THE ATMOSPHERE. 



ENTER ZERO TO CONTINUE 

6 
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LOOK 5 LfKS TMfS 
IT APF£A/i% £acp A/rr7/»/^ 

3mT iS omtrrsp /v 7>4tS US77A/6 - 
f(y^S£ /9^P ^PACt 

00 Nl .ILrli FITTINGS IHIS 3RANCK 




INTAK3 5HAFT, R2CT SECTION 
ORIFACSS- WITH (OUT) LOUVERS 
02 STRAIGHT OOCT 



SIDE 



03 EI30R, SMOOTH RADIUS SOUND 

04 EL30W; 90 DEG: 3.4,5 PCS: ROUND 

05 ELEOH, MITERED, BOUND, wiW/O VANES 

06 EL30W, mitered, RECTANGULAR 

07 EL3CW, SMOOTH aACIUS, RECTANGULAR 

08 EL30W, SMOOTH RADIUS, WITH 

SPLxTTERS, RECTANGULAR 

09 ELEOW, MITERED WITH VANES, SECT 

10 ELBOW, CONVERGING OR DIVERGING 

FLOW, RECTANGULAR 

11 ELBOWS, 90 DEG, Z-SHAPED, RECT 

12 ELBOWS, 90 DEG, IN DIFFERENT 

PLANES, RECTANGULAR 

13 DIVERGING WYE, BRANCH SECTION 

/ 4t««»««4t4<««t«4ruSE TWO DIGIT NUMBER, 

>> YOU ARE WORKING ON FITTING NUMBER 

“i 



^ 14 DIVERGING WYE, MAIN SECTION 

♦ 15 CONVERGENT WYi, BRANCH SECTION 

♦ 1b CONVERGENT WYE, MAIN SECTION 

♦ 17 0IFFU3ER, CONIlAL 

ROUND Section 

♦ 18 DIFFUSER, PLANE, IN-LINE 

♦ 19 DIFFUSER PYRAMIDAL, IN-LINE 

♦ 20 DIFFUSER, TRANSITIONAL (ROUND 

♦ TO RECT OR RECT TO ROUND) 

♦ 21 CO NTR ACTION ROUND 

♦ 22 CONTRACTION RECTANGULAR 

♦ 23 OBSTRUCTION, SCREEN IN DUCT 

♦ 24 LOUVER ENTRANCE 

♦ 25 FILTER 

♦ 26 MULTI-BAFFLE SILENCER 

♦ 27 GT MODULE 

♦ 28 WASTE HEAT 3CILER 

♦ 29 EXIT ABRUPT 

♦ 30 FITTING NOT LISTED 
PR^SS 

>> 312201* 



YOU HAVE SELECTED TEE INLET FILTER . 
^♦♦FIRST QUESTION, WHAT IS THE TOTAL FACS 

"do YCU want to use the DD963 TYPE FILTER 
IN IKE CRY CONDITION' (Y/)J) ? 

y 

NO MCRE QUESTIONS. 

DO YCU WANT TO ENTER THIS FITTING (Y/N) ? 
n 



AREA OF THE FILTER? 




omnr^o 



5 ) 



>> YCOJ 



ARE.WQRKING CN FITTING NUMBER >> 312201 



24 
YOU 



rr/vd- S£L 



HAVE SELECTED 



**FIRST QUESnON, 

ope: 



LOUVER 



• NINGS? 



A LOUVERED ENTRANCE. 
WHAT IS TBE DISTANCE 



ACROSS THE 



25. 5 

WHAT IS THE DISTANCE BETWEEN THE LOUVERS, USE THE 
CLOSEST DISTANCE. 

6. 40 2 1 

HOW MANY OPENINGS ARE THERE BETWEEN THE LOUVERS? 
17 



LAST QUESTION, WHAT IS THE AREA OF THE DUCT 
JUST INSIDE THE LOUVER ENTRANCE? 

197.75 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

^>> YCU AF.E WORKING CN FITTING NUM3ER >> 3 12292 



YOU HAVE SELECTED THE INLET FILTER . 

^**FIRST QUESTION, W EAT IS THE TOTAL FACE AREA DF THE FILTER? 

197.75 

DO YOU WANT TO USE THE DD963 TYPE FILTER IN 
IHE DRY CONDITION (Y/N) ? 

^NO MCRE QUESTIONS. 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

7 

>> YOU ARE WORKING CN FITTING NUMBER >> 312203 



20^7 



0*0 0*X> 



-5 

02 

YOU HAVE SELECTED STF.AIGHT DUCT. IT UAY BE ROUND 
OR RECTANGULAR. 

♦♦♦first question, is IKS DUCT CIRCULAR OR HECTANGOLAH 
(C/F) ? 
r 

THE DUCT IS RECTANGULAR, ENTER FIRST CROSS-S ECIIONAL 
^DIMENSION. (FEET) 

18.33 

^SECOND DIMENSION (FEET) 

io. 5 

ENTER TEE LENGTH OF THIS DUCT SECTION. (FEET) 

17. 75 

DO YOU WANT TO ENTER THIS FITTING (Y/N) ? 

YCO ARE WORKING CN FITTING N0M3ER >> 312204 



» YOO ARE WORKING CN FITTING N0M3EE >> 323101 

7 

ia 

YOU HAVE SELECTED TEE NAIN SECTION OF A DIVERGING WYE. 

THE AIR TO THE ENGINE SHOULD BE FLOWING THROUGH, THIS SECTION. 
JUST ONE QUESTION, WHAT IS THE CEOSS-i ECTION AL AREA OF THE 
HAIN SECTION? THIS SHOULD BE THE AREA JUST DOWNSTREAM OF THE 
JUNCTION AND DIRECTS FLOW TO THE ENGINE. IT ALSO SHOULD BE 
THE FIRST FITTING OF THE BRANCH. 



81.375 

>> YCU ARE WORKING CN FITTING NUMBER >> 323102 
26 

YOU HAVE SELECTED A MULTI- BAFFLE TYPE SILENCEE. 

EACH BAFFLE HAS A STREAMLINED SHAPE. IT IS THE TYPE 
USED IN THE INLETS OF THE DD963. 

♦♦FIRST QUESTION, WHAT IS THE GAP BETWEEN THE BAFFLES? 
.333 



WHAT 


IS 


THE 


THICKNESS 


OF THE 


BAFFLES? 




0.666 

WHAT 


IS 


THE 


LENGTH CF 


THE BAFFLES? 




9.3 3 
WHAT 


IS 


THE 


DIMENSION 


OF THE 


BAFFLES PARALLEL 


10 THE GAP? 


7.75 

WHAT 


IS 


THE 


DIMENSION 


Or THE 


MAIN DUCT ACROSS 


THE GAPS? 


io. 5 
LAST 


QU 


ESTION, HOW MANY GAPS 


ARE THERE? 





11 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 
y 

>> YCU ARE WORKING CN FITTING NUMBER >> 323103 



22 

YOU HAVE SELECTED A RECTANGULAR CONTRACTION. 

♦♦FIRST QUESTION, WHAT IS THE LENGTH OF THE CONTRACTION? 



8.5 

WHAT IS THE LEAST UPSTREAM CROSS-SECTION DIMENSION? 
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7.75 

WHAT IS THE SREATSR UPSTREAM CROSS -SECTIO N DIMENSION? 
o 

10. 5 

WHAT IS THE LEAST DOWNSTREAM CROSS -3 ECT 10 N DIMENSION? 

7 

LAST QUESTION, WHAT IS THE GREATER DOWNSTREAM 
CROSS-SECTION DIMENSION? 

1.75 

DO YOU WANT TO ENTER THIS FITTING (Y/N) ? 

y 

>> YOU ARE WORKING CN FITTING N0M3ER >> 323104 

66 

YOU HAVE SELECTED A MITERED. RECTANGULAR CEO SS- S ECHO N , ELBOW. 
^‘♦FIEST QUESTION. WHAT IS THE HEI3HT OF THE ELBOW? 

(THE DIMENSION PARALLEL TO THE TURN AXIS) 

6.67 

WHAT IS THE WIDTH OF THE ELBOW CROSS-SECTION? 

(THE DIMENSION IN THE PLANE OF THE TURN) 

7.75 

LAST QUESTION, WHAT IS THE ANGLE OF THE ELBOW TURN 
^(0 - 50 DEGRESS)? . 

90 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

7 

>> YCU ARE WORKING CN FITTING NUMBER >> 323105 
23 

YOU HAVE SELECTED A SCREEN OBSTRUCTION IN THE DUCT. 

^♦♦FIRST QUESTION, WHAT IS THE DUCT CROSS-SECTION AL AREA? 

50 

LAST QUESTION, WHAT IS THE FREE FLOW AREA OF THE SCREEN? 

27. 15 

DO YCU WANT TO ENTER THIS FITTING (Y/N) ? 

^>> YCU AEE SOKKING ON FIITING N0M3ES >> 323106 



00 

» YCU ARE WORKING CN FITTING NUMBER >> 324001 

-5 

13 

YOU HAVE SELECTED THE BRANCH SECTION OF A DIVERGENT WYE. 

THE MODULE COOLING AIR SHOULD BE BRANCHING OFF THE MAIN 
INLET AND FLOWING THROUGH THIS SECTION. THIS SHOULD BE THE 
FIRST FITTING OF THIS BRANCH. 

♦♦FIRST QUESTION, WHAT IS THE ANGLE BETWEEN THE MAIN FLOW 
^AXIS AND THE BRANCH FLOW AXIS (DEGREES) ? 

90 

WHAT IS THE C RO SS -SECTIONA L AREA OF THE COMBINED FLCW 
SZCTICN? THIS IS WHERE BOTH ENGINE AIR AND COOLING AIR FLOW 
^JUST UPSTREAM OF THE BRANCH. 

197. 7 5 

^LAST QUESTION, WHAT IS THE CROSS-SECTIONAL AREA OF THE BRANCH? 
5.76 1 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

y 



209 



>> YCU AES WORKING CN FITTING N0K3ER >> 324002 
02 

YOU HAVE SZL2CTED STRAIGHT DUCT. IT :1AY 3S ROUND 
OF. RECTANGULAR. 

♦♦♦FIRST QUESTION, IS THE DUCT CIRCULAR OR RECTANGULAR (C/R) ? 

She duct is tircular, enter the dianetee (feet) 

^708 

^ENTER THE LENGTH OF THIS DUCT SECTION. (FEET) 

7.5 

DO YCU WANT TO ENTER THIS FITTING (Y/N) ? 

YCU aSE UOHKING Ch FITTING NONSEB >> 324003 



>> YOU ARE HORKING CN FITTING NON3EH >> 335101 
02 

YOU HAVE SELECTED STRAIGHT DUCT. IT 1AY BE ROUND OR RECTANGULAR 
♦♦♦FIRST QUESTION, IS THE D UCT CIRCULAR OR RECTANGU-LAR (C/R) ? 

^THE DUCT IS RECTANGULAR, ENTER FIRST CROSS-S ECTIONA L DIHENSICN. 

*7 

6.64 

^SECOND. DIMENSION (FEET) 

4,53 

ENTER THE LENGTH OF THIS DUCT SECTION. (FEET) 

-7 

i 

DO YCU WANT TO ENTER THIS FITTING (Y/N) ? 

YOU ARE HORKING CN FITTING NOSBER >> 335102 

*? 

16 

YOU HAVE SELECTED TEE MAIN SECTION OF A CONVERGING 
WYE. THE ENGINE EXHAUST ALONE SHOULD 3E FLOWING THROUGH 
THIS SECTICN. IT SHOULD BE THE LAST FITTING OF THE BRANCH. 
♦♦JUST ONE QUESTION, WHAT IS THE CROSS -SE CTIONAL AREA CF THE 
MAIN ERANCH? 

*7 

20. 19 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

y 

>> YCU ARE WORKING CN FITTING NUMBER >> 335103 

*7 

00 

» YCU ARE WORKING CN FITTING NUMBER >> 345001 

*7 

27 

YOU HAVE SELECTED TEE GAS TURBINE MODULE AS A PART OF 
THE COOLING FLOW PASSAGE. NO QUESTIONS, JUST NEEDED 
TO KNOW WHERE YOU WANTED THE MODULE. 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

y 

>> YOU ARE WORKING CN FITTING NUM3ER >> 345002 

*7 

15 

YOU HAVE SELECTED THE BRANCH SECTION OF A CONVERGENT 
WYE. TEE HOT MODULE COOLING AIR SHOULD 5E JOINING THE MAIN 
ENGINE EXHAUST IN THIS WYE. THIS FITTING SHOULD BE THE LAST 
FITTING IN THE ERANCH. 

♦♦FIRST QUESTION, WHAT IS THE ANGLE BETWEEN THE MAIN FLOW 
AXIS AND THE BRANCH AXIS (DEGREES) ? 



(FEET) 
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0 

WHAT IS TH£ C ROSS -S r CTICNA L AfiEA Or THE CO.'ISINEO FLOW 
SECTION? :HIS is rtHERS ENGINE EXHAUSI AND :iOD'JLE CCCLING AIR 
FLOW JUST DCWNSTREAN OF IHEEHANCH. 

30, 40 

EAST QUESTION, WHAT IS THE CROSS-SECTIONAL AREA OF THE 
BRANCH? 

iO. 27 

DO YOU WANT TO ENTER THIS FITTING (Y/N) ? 

y 

>> YCU AES WORKING CN FITTING NOHSES >> 345003 
00 

» YOU ARE WORKING CN FITTING NUMBER >> 356201 
21 

YOU HAVE SELECTED A CIRCULAR CONTRACTION, 

^♦♦FIRST QUESTION, WHAT IS THE LENGTH OF THE CONTRACTION? 

9 

WHAT IS THE UPSTREAM DIAMETER? 

-5 

6,2374 

WHAT IS THE DOWNSTREAM DIAMETER? 

-> 

5.4667 

DO YCtJ WANT 10 ENTER THIS FITTING (Y/N)? 

">> YCU ARE WORKING CN FITTING NUMBER >> 356202 

02 

YOU HAVE SELECTED STRAIGHT DUCT, IT MAY BE ROUND CR RECTANGULAR. 
♦♦♦FIRST QUESTION, IS THE DUCT CIRCULAR OR RECTANGULAR (C/R) ? 

^THE DUCT IS CIRCULAR, ENTER THE DIAMETER (FEET) 

5. 4 6 6 7 

^ENTER THE LENGTH OF THIS DUCT SECTION, (FEET) 

7. 1 1 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

^>> YCtJ 5RE SOEKISG CN FITTING NDH3EK >> 356203 

7 

05 

YOU HAVE SELECTED A MITERED ROUND ELBOW, 

♦♦FIRST QUESTION, W HAI IS THE CROSS-SECTIONAL DIAMETER? 

5-46 67 

WHAT IS THE ANGLE OF THE ELBOW TORN? 

7 

90 

LAST 2UESTION. ARE OPTIMUM NUMBER OF CONCENTRIC VANES 
INSTALLED TO REDUCE RESISTANCE AND TUH3ULANCE (Y/N)? 

^DO YOG WANT IC ENTES THIS FITTING (Y/N) ? 

^>> YOU ARE WORKING CN FITTING NOHSEE >> 356204 

7 

02 

YOU HAVE SELECTED STRAIGHT DUCT. IT MAY BE ROUND CH RECTANGULAR. 
♦♦♦FIRST QUESTION, IS THE DUCT CIRCULAR OR RECTANGULAR (C/R) ? 

^THS DUCT IS CIRCULAR, ENTER THE DIAMETER (FEET) 
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5. 5667 

5NIZS 73E LEiIGTH OF THIS DUCT SECTION. (FEET1 

*) 

6.23 

DO YOU WANT TO 2N TE R THIS FITTING (Y/N) ? 

y 

>> YOJ ARE WORKING CN FITTING N0N3EE >> 356205 
05 

YOJ HAVE SELECTED A NITE3SD ROUND EL30W. 

^♦♦FIRST QUESTION, W KAT IS THE CROSS-SECTIONAL DIAHETER? 

Lu667 

WHAT IS THE ANGLE OF THE EL50W TURN? 

lo 

LAST QUESTION, ARE CPTIHUM NUNBER OF CONCENTRIC VANES 
INSTALLED TO REDUCE RESISTANCE AND TUR3ULANCE (Y/N)? 

^DD YOU H4NT TO ENTER THIS FITTING (Y/N)? 

YOU ARE WORKING ON FITTING NUMBER >> 356206 

02 

YOU HAVE SELECTED STRAIGHT DUCT. IT JAY BE ROUND OR RECTANGULAR 
♦♦♦FIRST QUESTION, IS THE DUCT CIRCULAR OR RECTANGULAR (C/R) ? 

^THE DUCT IS CIRCULAR, ENTER THE DIAMETER (FEET) 

5.4667 

^ENTER THE LENGTH OF THIS DUCT SECTION. (FEET) 

3.033 

DO YOU WANT TO ENTER THIS FITTING (Y/N)? 

^>> YOU ARE WORKING CN FITTING NUMBER >> 356207 
o 

17 

YOU HAVE SELECTED A CONICAL DIFFUSER WITH CIRCULAR 
INLET AND CUTLET SECTIONS. 

^♦♦FIRSI QUESTION, WHAT IS THE LENGTH OF THE DIFUSER? 

2.967 

WHAT IS THE INLET DIAMETER? 

5.4667 

WHAT IS THE OUTLET DIAMETE E? 
o 

7. 1667 

IS THERE A NON-UN IFCRM VELOCITY DISTRIBUTION AT THE INLET (Y/N)? 

^ilNCE THERE IS A WIDE DIVERGING ANGLE, THE PROPER 
INSTALLATION OF DIVIDING WALLS OR BAFrLES CAN REDUCE 
THE RESISTANCE OF THIS FITTING. DO YOU WANT TO INSTALL 
DIVIDING WALLS OR BAFFLES (Y/N)? 
n 

NO MORE QUESTIONS THIS FITTING. 

DO YOU KANT TO ENTER THIS FITTING (Y/N) ? 

YOU ARE WORKING CN FITTING NUMBER >> 356208 

02 

YOU HAVE SELECTED STRAIGHT DUCT. IT MAY BE ROUND OR RECTANGULAR 
♦♦♦FIRST QUESTION, IS THE DUCT CIRCULAR OR RECTANGULAR (C/R) ? 

^THH DUCT IS CIRCULAR, ENTER THE DIAMETER (FEET) 
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7. 1667 

^ENTER THE LENGTH OF THIS DUCT SECTION. (FEET) 

i.7 

DO YCa WANT TO ENTER THIS FITTING (Y/N) ? 

y 

» YOU ARE WORKING CN FITTING NUMBER >> 356209 
21 

YOU HAVE SELECTED A CIRCULAR CONTRACTION. 

^**FIRST QUESTION, WHAT IS THE LENGTH OF THE CONTRACTION? 

0 . 1 

WHAT IS THE UPSTREAM DIAMETER? 

-5 

7. Ib67 

WHAT IS THE DOWNSTREAM DIAMETER? 

Ls33 

DO YOU WANT ro zINTEE THIS FITTING (Y/N) ? 

^>> YCO ARE WORKING CN FITTING NUMBER >> 356210 
29 

YOU HAVE SELECTED AN ABRUPT EXIT TO THE ATMOSPHERE. 

♦♦JUST ONE QUESTION, WHAT IS THE AREA OF THE EXIT PLANE? 

16. 1384 

DO YCU WANT. 10 ENTER THIS FITTING (Y/N)? 

^>> YCU ARE WORKING CN FITTING NUMBER >> 356211 

00 

WHAT SZRIAI NOMBER WOULD YCO LIKE TO GIVE THIS DUCT DATA FILE? 
YOU MAY USE UP TO A SIX DIGIT INTEGER NUMBER. 

o 

5 1000 1 

DO YCU WANT TO COMPUTE WITH TEE FILS OR QUIT (C/Q) ? 

9 
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ZDITIHG THE DUCT DATA FILE 



program, 
fitting, 
duct . 



The 



€S 


the ed 


itin j 


capab 


ility of the 


b 


e demon 


strat 


ed 


by 


changing a 


sen 


is an 


eib 


ow 


in 


the exhaust 


nin 


g vane 


s ins 


tailed 


. By using 


s w 


ill be 


remov 


ed 


and 


an ordinary 


s 


ubstitu 


ted . 




Any 


fitting that 


Id 


be subs 


titut 


ed 


as 


well. 


dd 


or delete a 


fi tti 


ng. It is 


iti 


on ani 


li t y . 




The 


program can 


rst 


of a branch 


in on 


e step. To 


a ta 


file 


selec 


t 


the 


index of the 


e 


fitting 


is t 


0 


ne p 


laced after. 


fit 


ting i 


3 to 


be 


add 


ed and then 


ting dire 


ctly 


or 


fro 


m the . menu . 


rst 


of a 


branc 


h. 


fi 


rst add the 



same first fitting presently in the branch after itself, 
then change the same index fitting as the first step to the 
desired new first fitting. 

It should be emphasized that the editor does not change 
a system class. If the user wants a different duct arrange- 
ment a new file will have to be entered. 
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GL03AL rXTLI3 C:iSLIB FORT.'iOD2 M0D2E3H i:iSLS? N0NI.1SL 
LOAD THESIS ( START 
EXZCSTICN BEGINS... 

A ONE-DIMEXSIONAL .1CDEL FOR THE SYSTEJl PERFORMANCE 
OF A MARINE GAS TURBINE INSTALLATION 

BY LCDR- STEPHEN M. EZZELL 

VERSION 1.0 MARCH 30, 1934 

OPTIONS: EUILD A DATA FILE REPRESENTING THE DUCT SYSTEM 
EDIT OR CHANGE THE DUCT DATA FILE 
COMPUTE SYSTEM PERFORMANCE 

METHOD: INTERACTIVE INPUT OF DATA, BRANCHING TO DESIRED 

OPTION BY ANSWERING QUESTIONS 

♦♦♦ WARNING, TWO NULL ENTRIES ON NUMERICAL INPUT WILL 
KILL THE PROGRAM. 



FIRST QUESTION: 

DO YOU HAVE A DATA FILE OF DUCT FITTINGS (Y/N) ? 

y 



DO YOU want to edit THE FILE OR USE IT FOR COMPU T ATIO N (E/C) ? 

^DO YOU WANT TO CHANGE, DELETE, 

YOUR OLD FILE WILL EE PERM/'**'*" 

COPY THE OLD FILE UNDER A 

SAVE IT? IF NOT, ENTER TWO NULL STRINGS TO KILL THE 
PROGRAM. 



-ETE, OR ADD fC/D/A)? 
lANENTLY CHANGED, DID YOU 
NEW NAME IF YOU WANTED TO 



WHAT LINE DO YOU WANT TO EDIT? 



19 

DO 

^0 0 
01 



02 

03 

04 

05 

06 

07 

08 

09 

10 

1 1 
12 

13 



YOU NEED A MENU (Y/N) ? 

NC MORE FITTINGS THIS BRANCH ♦ 

INTAKE SHAFT, EECT SECTION, SIDE ♦ 

ORIFACES- WITH (OUT) LOUVERS * 

STRAIGHT DUCT ♦ 

ELBOW, SMOOTH RADIUS ROUND ♦ 

ELBOW; 90 DEG; 3,4,5 PCS: ROUND ♦ 
ELBOW, MITERED, ROUND, WDW/0 VANES* 
ELBOW, MITERED, RECTANGULAR ♦ 

ELBOW, SMOOTH RADIUS, RECTANGULAR ♦ 
ELBOW, SMOOTH RADIUS, WITH * 

SPLITTERS, RECTANGULAR * 

ELBOW, MITERED WITH VANES, RECT * 
E130W, CONVERGING OR DIVERGING * 
FLOW, RECTANGULAR * 

ELBOWS, 90 DEG, 2-SHAPSD, RECT * 

ELBOWS, 90 DEG, IN DIFFERENT * 



PLANES, RECTANGULAR 
DIVERGING WYE, BRANCH SECTION 

♦ tvo 01 gii number, press enter*********** 

YOU ARE WORKING ON FITTING NUMBER >> 356205 



14 DIVERGING WYE, MAIN SECTION 

15 CONVERGENT WYE, BRANCH SECTION 

16 CONVERGENT WYE, MAIN SECTION 

17 DIFFUSER, CONICAL ROUND SECTION 
13 DIFFUSER, PLANE, IN-LINE 

19 DIFFUSER PYRAMIDAL, IN-LINE 

20 DIFFUSER, TRANSITIONAL (ROUND TO 

RECT OR RECT TO ROUND) 

21 CONTRACTION ROUND 

22 CONTRACTION RECTANGULAR 

23 OBSTRUCTION, SCREEN IN DUCT 

24 LOUVER ENTRANCE 

25 FILTER 

26 MULTI-BAFFLE SILENCER 

27 GT MODULE 

23 WASTE HEAT 3CIIER 

29 EXIT ABRUPT 

30 FITTING NOT LISTED 



05 

YOU HAVE SELECTED A MITERED ROUND ELBOW. 

**FIRST QUESTION, WHAT IS THE CROSS-SECTIONAL DIAMETER? 

"7 

5. 4667 

WHAT IS THE ANGLE OF THE ELBOW TURN? 

Iq 

LAST QUESTION, ARE OPTIMUM NUMBER OF CONCENTRIC VANES 
INSTALLED TO REDUCE RESISTANCE AND TUHBULANCE (Y/N)? 

^DO YCU WANT TO ENTER THIS FITTING (Y/N)? 
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y 

ro CHAII3E ANOTHER FITTING (Y/N) ? 

^WANT TO MAKE ANY OTHER CHANGES (Y/N)? 

n 

WHAT SERIAL NUMBER 7IOOLD YOU LIKE TO GIVE THIS DUCT DATA FILE? 
YOU MAY USE UP TO A SIX DI GIT INTEGER NUMBER. 

*? 

510 0 02 

DO YOU WANT TO COMPOTE WITH THE FILE OR QUIT (C/Q) ? 

g 
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F. COflPOTIMG SYSTEM PEBFOSHANCE 



This section also contains a recorded terminal session. 
The computing section of the program was exercised here. 
The session has been annotated to point out program 
features . 
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GLOBAL TXTLIB CMSLI3 F0HT.10D2 30D2ESH I.'ISLSP .nSL 

ICAO IHESIS ( START 
EXECUTION BEGINS... 

A CNE-OI.'IENSIONAL .'ICOEL FOR THE SYSTEll PERFORHANCE 
OF A .1APINE GAS TURBINE INSTALLATION 

31 LCDR. STEPHEN H. S2ZELL 

VERSION 1.C ^.ARCH 30. 1934 
OPTIONS: EUILD A DATA FILE aEPRTiS ENTING THE DUCT SYSTEM 

EDIT OR CHANGE THE DUCT DATA FILE 
COMPUTE SYSTEM PERFORMANCE 

METHOD: INTERACTIVE INPUT OF DATA. BRANCHING TO DESIRED 

OPTION BY ANSWERING QUESTIONS 

*♦* WARNING, TWO NULL ENTRIES ON NUMERICAL INPUT HILL 
KILL THE PROGRAM. ♦♦♦ 



FIRST QUESTION: 

DO YCU HAVE A DATA FILE OF DUCT FITTINGS (Y/N) ? 

y 



DO YOU WANT TO EDIT THE FILS OH USE IT FOR COMPU TATIC N (E/C) ? 

^THIS PORTION OF THE PROGRA M INPUTS THE SNVIROMENTAL CONDITIONS. 
WHAT IS IKE AMBIENT TEMPERATURE {DZG2ZES F) ? 

o 

75 

^WHAT IS THE AMBIENT PRESSURE (PSIA) ? 

14.6 

^WHAT IS THE RELATIVE HUMIDITY (GRAINS PER POUND AIR)? 

70 

YOU HAVE SELECTED A SYSTEM WITH A COOLING FAN. THE 
DEFAULT SPECFIC ATIO NS ARE FOR THE FAN INSTALLED ON 
THE DD963 CLASS SHIP. 

DO YOU WANT TO USE THE DEFAULT SPSCF IC ATI ONS (Y/N)? 

^INPUT TEE POHEH SETTING TOO DESIES. 

•*WHAT IS THE HORSEECiiES? 

20000 

^♦*HHAT IS THE POWER TURBINE SPEED (RPM) ? 

360 0 

THE RESULTS OF THIS RUN HAVE BEEN ENTERED 
INTO ; FILE CALLED "OUTPUT DAIA". 

DO YCU WANT TO COMPUTE WITH DIFFERENT OPERATIN3 CONDITIONS (Y/N) ? 

^INPOT TEE POSER SETTING YOO DESIRE. 

“WHAT IS IKE HORSEPOWER? 

10000 

^*»WHAT IS THE POWER TURBINE SPEED (RPM)? 



2200 

THE RESULTS 
INTO 1 FILE 
DO YOU WANT 

YOU WANT 



OF THIS RUN HAVE BEEN ENTERED 
r a T T F n ••rriTPHT oata” 

TO COMPOTE WITH DIFFERENT OPERATING CONDITIONS 
TO EDIT THE DUCT DATA FILS OR QUIT (E/Q)? 



(Y/N) ? 
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EXAailING THE OOTPOT 



G • 



Included in this section are copies of two files. The 
first is a copy of the file the author built using the 
Arleigh Eurke class example. The otner one is a copy of the 
results from the runs made in the compute section using the 
sample file at two operating points. 
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510001 
24 



ZD 

or A/rrW&s 



1 


312201 


24 


197,7500 


0 . 0 


18.7228 


197.7500 


2 


3 12202 


25 


197.7500 


0 . 0167 


1.0287 


197. 7500 


3 


312203 


2 


197.7 150 


1 5.2104 


17.7500 


197. 7150 


4 


32310 1 


1 4 


81 . 3750 


0 . 0 


0 . 0 


81.3750 


5 


323102 


26 


81.3750 


0.0 


0.9499 


81 . 3750 


6 


323103 


22 


31.3 750 


0.0 


0. 0325 


51 . 06 92 


7 


323104 


6 


51.6925 


7 . 1696 


1.2095 


51-6925 


3 


323105 


23 


50 . 0 000 


0.0 


2 . 1282 


50- 0000 


9 


32400 1 


13 


197.7500 


5.7610 


90 . 0000 


5 . 76 10 


10 


324002 


2 


5 . 7 566 


2 . 7080 


7 . 5000 


5. 7566 


1 1 


335101 


2 


30 . 4 112 


b . 0026 


1. 0000 


30. 41 12 


12 


335102 


16 


20 . 1 900 


0.0 


0 . 0 


20. 1900 


13 


345001 


27 


1.0000 


1.0000 


1.0000 


1- 0000 


14 


345002 


15 


30 . 4600 


10. 2700 


0.0 


10.2700 


15 


35620 1 


21 


30 . 5 561 


0 . 0 


0. 0107 


23 . 4715 


16 


356202 


2 


23 . 4 596 


5 . 466 7 


7 . 1100 


23. 4596 


17 


356203 


5 


23 . 4 715 


5.4667 


0.3111 


23. 4715 


18 


356204 


2 


24.3257 


5 . 5667 


6. 2300 


24.3257 


19 


356205 


5 


23.4 715 


5.4667 


0.3111 


23. 4715 


20 


356206 


2 


23 . 4 596 


5. 4667 


3. 0330 


23. 4596 


21 


356207 


17 


23 . 4 715 


0 . 3002 


0 . 1168 


40. 3394 


22 


356208 


2 


40.3 188 


7 . 1667 


1.7000 


40 . 31 88 


23 


356209 


21 


40 . 3 394 


0.0 


0. 3042 


16 . 1385 


24 


3562 1 0 


29 


16 . 1 384 


0 . 0 


1.0000 


16. 1384 




. LfsTBO OM n^&NtA^. 



rirrtKj& x d it 



PiL^ L fHB t^Seo /A/ BDiT 
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THIS PERfOR'lANCE RUN WAS DEVELOPED FRO.'I DUCT DATA FILE, 510001 

INLET CONDITIONS: AMBIENT TEMP (DEG ?) 75.00 

AMBIENT PRESS (PSIA 14.60 

HUMIDITY (GRAINS) 70.00 

HOBSEPCWEE: 20000.0 

NPT (RPM) : 3600.0 

ENGINE DUCT LOSSES (IN.W.G.): INLET 1.98 EXHAUST 13.95 



ENGINE PERFORMANCE 


PARAMETERS: 


WC = 


24. 32 


LEM/SEC 


N2 = 


122. 71 


LHM/SEC 


W8 = 


123. 78 


lEM/SEC 


P8 = 


15. 13 


PSIA 


T8 = 


1405. 49 


DEG R 


SrC = 
154 = 


0. 4 06 
1 827. 1 


LEM (FUEL) /HP*HR 
DEG R 


NG= 


3827.0 


RPM 


MODULE 


COOLING 


TEMP OUT= 250 . 3 DEG F 



FITTING 

ID 


FITTING 

TYPE 


PRESSURE LOSS 
INCH 3.G. 


VELOCITY PRESSURE 
INCH W. G. 


31220 V 


. 24 


0. 42 


0.0 2 


LOUVER entrance 


312202 


25 


0. 72 


0.0 2 


FILTER 


312203 


2 


0.00 


0.02 


STRAIGHT DUCT 


323101 


1 4 


0. 04 


0.09 


MAIN SECT,DIV WYE 
SILENCER SECTION 


323102 


26 


0. 09 


0.09 


323 103 


22 


0.01 


9.23 


CCNTRACTION, RECT 


323 1 04 


0 


0. 18 


0.23 


EL3CW , MITERED ,RECT 


323105 


23 


0.52 


0.25 


SCREEN IN DUCT 


32400 1 


13 


0. 67 


0.72 


BRANCH, DIV WYE 
STRAIGHT DUCT 


324002 


2 


0. 02 


0.73 


335101 


2 


0. 00 


1.71 


STRAIGHT DUCT 


335102 


16 


1.30 


2.24 


MAIN SECT.CONV WYE 
GAS TURBINE MODULE 


345001 


27 


1. 54 


0.0 


345002 


1 5 


-3.24 


2.24 


BRANCH, CONV 9Y5 
CONTRACTICN, ROUND 


356201 


2 1 


0. 04 


3.31 


356202 


2 


0. 05 


3.79 


STRAIGHT DU(2T 


3562 03 


5 


0. 74 


3.79 


ELBOW, MITERED , ROUND 


356204 


2 


0. 04 


3.54 


STRAIGHT DUCT 


356205 


5 


0. 74 


3.30 


EL3CW .MITERED , ROUND 


35d206 


2 


0. 02 


3.3 1 


STRAIGHT DUCT 


35o207 


17 


0. 45 


3.30 


DIFF, CONICAL 


356203 


2 


0.00 


1.29 


STRAIGHT DUCT 


35o209 


2 1 


2. 46 


3.0 8 


CCNTHACTICN, ROUND 


356210 


29 


8. 10 


8. 10 


EXIT, ABRUPT 



Less 


BRANCH 


1-2 : 


1.14 


LOSS 


BRANCH 


2-3: 


0.33 


LOSS 


BRANCH 


3-5: 


1.31 


LOSS 


BRANCH 


5-6 : 


12.65 


LCS S 


BRANCH 


2-4 : 


0.69 


LOSS 


BRANCH 


4-5 : 


-1.70 



THIS PE5FCHMANCS SUN WAS DEVELOPED ?flO^ DUCT DATA FILE, 510001 

INLET CONDITIONS: ASEIEN T TE.1P (DEG ■) 75.00 

AN3IENT PRESS (P3IA) U.60 

HUMIDITI (GRAINS) 70.00 

HORSEPOWER: 10000.0 

NET (REM) : 2200.0 

ENGINE DUCT LOSSES (IN.W.G.): INLET 1.40 EXHAUST 9.10 

ENGINE PERFORMANCE PARAMETERS: 

WC= 25.42 LEM/SEC 

W2= 99.45 LEM/SEC 

W8= 99.88 ISM/SEC 

E8= 14.97 ESIA 

T8= 1281.00 DEG R 

SFC= 0.508 lSM(fUEL)/HP*HE 

TS4= 1 54 9. 0 DEG R 

NG= 8332.3 REM 

MODULE COOLING TEMP 3UT= 250.3 DEG F 



FITTING FITTING PRESSURE LOSS VELOCITT PRESSURE 



ID 


TYPE 




INCH W.G. 


INCH W.G. 




31220 1 


24 




0. 30 


0.02 


LOUVER ENTRANCE 


312202 


25 




0. 55 


0.02 


FILTER 


312203 


2 




0. 00 


o.o2 


STRAIGHT DUCT 


323101 


1 4 




0* 02 


0. 0 6 


MAIN SECT.DIV WYE 
SILENCER SECTION 


323 102 


26 




0. 06 


0.06 


3231 03 


22 




0.00 


0. 15 


CCNTRACTICN^HECT 


323104 


6 




0. 12 


0. 15 


EL3CW, MITERED ,R£CT 
SCREEN IN DUCT 


323105 


23 




0. 34 


0. 16 


32400 1 


13 




0.73 


0.79 


ERANCH.DIV WYE 
STRAIGHT DUCT 


324002 


2 




0.02 


0.79 


335 10 1 


2 




0.00 


1.03 


STRAIGHT DUCT 


335102 


16 




0. 85 


1.46 


MAIN SECT.CONV WYE 


34500 1 


27 




1.69 


0.0 


GAS TURBINE MODULE 


345002 


1 5 




-1. 84 


1-46 


BRANCH, CONV WYE 


35620 1 


21 




0. 03 


2.48 


CONTRACTION, ROUND 


356202 


2 




0. 03 


2.47 


STRAIGHT DUCT 


356203 


5 




0. 49 


2.47 


ELBOW .MITERED, ROUND 
STRAIGHT DUCT 


356204 


2 




0.02 


2.30 


356205 


5 




0.49 


2.48 


ELBOW, MITERED, ROUND 
STRAIShT DUCT 


356206 


2 




0. 01 


2.48 


356207 


17 




0. 30 


2.48 


DIFF, CONICAL 


356208 


2 




0.00 


0.84 


STRAxGHT DUCT 


356209 


21 




1.60 


5.26 


CONTRACTION, HOUND 


356210 


29 




5. 27 


5.27 


EXIT, ABRUPT 


LOSS 


2 RANCH 


1-2: 


0.86 






LOSS 


BRANCH 


2- 3 : 

3- 5; 


0.55 






LOSS 


EPANCH 


0.85 






LOSS 


ERANCK 


5-6: 


8.25 






LOSS 


E RANCH 


2-4 : 


0.75 






LC35 


BRANCH 


4-5 : 


-0.15 
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